Dim Form2 As New Form2
Form2.Show()

<font color=green>' Module1.vb</font>
Module Module1
  Public MainForm As New Form2()
End Module

<font color=green>' Begrüßungsform (Form1)</font>
  Private Sub Timer1_Elapsed(ByVal sender As Object, ByVal e As _
    System.Timers.ElapsedEventArgs) Handles Timer1.Elapsed
    If Not MainForm.Visible Then
      MainForm.Show()
      Me.Select()
    Else
      Timer1.Enabled = False
      Me.Hide()
    End If
  End Sub
 
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
    System.EventArgs) Handles MyBase.Load
    Me.Show()
    Timer1.Enabled = True
  End Sub

  Private Sub Form2_Closed(ByVal sender As Object, ByVal e As System.EventArgs) _
    Handles MyBase.Closed
    End
  End Sub