Class t1
        Public Sub New()
            Debug.WriteLine("t1 new")
        End Sub
 
        Public Sub t1sub()
            Debug.WriteLine("t1sub")
        End Sub
    End Class
 
    Class cTest
        Public Shared rnd As New t1
 
        Shared Sub New()
            Debug.WriteLine("cTest Shared New")
        End Sub
 
        Public Sub New()
            Debug.WriteLine("cTest New")
        End Sub
    End Class
 
    Private Sub Test()
        Debug.WriteLine("start")
 
        Dim ctest As New cTest()
        Debug.WriteLine("mid")
        ctest.rnd.t1sub()
 
        Debug.WriteLine("end")
    End Sub

  start
  t1 new
  cTest Shared New
  cTest New
  mid
  t1sub
  end

  start
  t1 new
  cTest Shared New
  t1sub
  end

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist