Private Sub Anfang_v00_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 
      Dim firstInstance As Boolean
        Dim mut As New System.Threading.Mutex(False, ID, firstInstance)
        Dim main As Anfang_v00
        If firstInstance Then
            main = New Anfang_v00
            Application.Run(main)
        End If
 
end sub