Public Class Form1
    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        If Me.GetChildAtPoint(e.Location) Is Button1 Then
            If Button1.Enabled Then
                Process.Start(Programm)
            Else
                MsgBox("Um dieses Programm zu starten müssen Sie sich...")
            End If
        End If
    End Sub
End Class