' Klasse Form1
Private Sub Form1_Load(ByVal ...) Handles MyBase.Load
' entweder mit
    Dim y As New Projekt2.Form2 <-FUNKTIONIERT
' oder mit
    Dim y As New Projekt2.Form2("HALLO") <-FUNKTIONIERT NICHT ?
' aufgerufen
    y.ShowDialog()
  End Sub
 
'Klasse Form2 mit Label2
Private aText As String
 
Public Sub New(ByVal Text As String)
   aText = Text
End Sub
 
Private Sub Form2_Load(ByVal ...) Handles MyBase.Load
    Label2.Text = aText <- Hier kommt die Fehlermeldung, warum?
 End Sub
 
 Private Sub Timer2_Tick(ByVal ...) Handles Timer2.Tick
    Timer2.Enabled = False
    Me.Close()
 End Sub