Public Sub Aufrufen()
        Dim str() As String = {String.Empty}
 
        Dim objTest As New Projekt.Skizze(str)
        objTest.ShowDialog(Me)
    End Sub

Private objTest As New Projekt.Skizze(str)
 
Public Sub Aufrufen()
        Dim str() As String = {String.Empty}
 
        objTest.ShowDialog(Me)
    End Sub

--------------------

Ich habe keine besondere Begabung, sondern bin nur leidenschaftlich neugierig.
- Albert Einstein