Private Sub Benutzer_ClickEvent(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Benutzer.ClickEvent
 
        F = New Form3
        F.Show()
 
        Me.Hide()
 
    End Sub

Private Sub schließen_ClickEvent(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles schließen.ClickEvent
 
        F = New Form2
        F.Show()
 
        Me.Close()
 
    End Sub

Module Module1
 
    Public F As Form
 
End Module