Public Class Anfang_v00
    Inherits System.Windows.Forms.Form
    Private Const ID As String = "{71E34384-3A08-4489-B2B1-91D82E372028}"
 
#Region " Windows Form Designer generated code "
...................................
 
Private Sub Anfang_v00_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
 
        Dim mut As System.Threading.Mutex
        Dim firstInstance As Boolean
        Dim main As MainForm
        mut = New System.Threading.Mutex(False, ID, firstInstance)
        If firstInstance Then
            main = New MainForm
            Application.Run(main)
        End If
 
End Sub
End Class