Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        IsAppRunning("WindowsApplication1", _
          System.Threading.Thread.CurrentThread)
 
    End Sub
 
 
'IsAppRunning:
...
If iAnzahl > 1 Then
    myThread.Abort()
End If
...