Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        If IstAnwendungOK(Process.GetCurrentProcess.MainModule.ModuleName) Then
            MsgBox("Diese Anwendung läuft bereits!")
            Me.Close()
        End If
End Sub
 
Function IstAnwendungOK(ByVal dateiname As String) As Boolean
        Try
            If Process.GetProcessesByName(IO.Path.GetFileNameWithoutExtension( _
              dateiname)).Length > 1 Then
                Return True
        Else
                Return False
        End If
        Catch ex As Exception
            MessageBox.Show("Modul2: Fehler in IstAnwendungOK: " & ex.Message)
     End Try
End Function

Hänk

(Wer früh aufsteht hat mehr vom Tag)