Option Explicit
 
Private Declare Function GetCursorPos Lib "user32" _
        (lpPoint As POINTAPI) As Long
 
Private Declare Function ClientToScreen Lib "user32" _
        (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
 
Private Declare Function ShellExecute Lib "shell32.dll" _
        Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal _
        lpOperation As String, ByVal lpFile As String, ByVal _
        lpParameters As String, ByVal lpDirectory As String, _
        ByVal nShowCmd As Long) As Long
 
Private Type POINTAPI
  X As Long
  y As Long
End Type
 
Dim MOver As Boolean
 
Private Sub Internetlink_Click(Index As Integer)
Call ShellExecute(Me.hwnd, "Open", "http://www.irgendwas.de", _
                    "", App.Path, 1)
End Sub
 
Private Sub Programm_Click(Index As Integer)
Call Shell("C:\Programme\irgendwas\irgendwas.exe")
End Sub
 
Private Sub Netzlaufwerk_Click(Index As Integer)
Call ShellExecute(Me.hwnd, "Open", "\\rechner\netzlaufwerk", _
                    "", App.Path, 1)
End Sub