Private Sub benutzer_ver_ClickEvent(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles benutzer_ver.ClickEvent
 
        F3 = New Form3
        F3.Show()
 
        Me.Hide()

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

Module Module1
 
    Public F2 As Form2
    Public F3 As Form3
    Public F4 As Form4
 
End Module