Public Class Anfang_v00
    Inherits System.Windows.Forms.Form
    Friend WithEvents Timer_RS485_Echo As System.Windows.Forms.Timer
    Friend WithEvents Button_Anmelden As System.Windows.Forms.Button
    Private Const ID As String = "{71E34384-3A08-4489-B2B1-91D82E372028}"
 
   Public Shared Sub Main()
        Dim firstInstance As Boolean
        Dim mut As New System.Threading.Mutex(firstInstance)
        REM        Dim main As MainForm
        REM        mut = New System.Threading.Mutex(False, ID, firstInstance)
        If firstInstance = False Then
            MsgBox("noch nicht gestartet", MsgBoxStyle.Information, _
              "Start_Main")
            Application.Run(New Anfang_v00)
        Else
            MsgBox("schon gestartet", MsgBoxStyle.Information, "Start_Main")
        End If
 
    End Sub
 
    Private Sub Anfang_v00_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        REM ************************************************
        REM error-handler definieren
        REM ************************************************
       fehler_string1 = "Anfang_v00_Load"
End Sub
End Class