1 Private Declare Function SetCursor Lib "user32" (ByVal hCursor As Long) As Long

   1 If Button = 0 Then SetCursor 65581

   1 Private Declare Function ReleaseCapture Lib "user32" () As Long
   2 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
   3 Const WM_SYSCOMMAND = &HA1
   4 Const SC_MOVE = 2

   1 If Button = vbLeftButton Then
   2     ReleaseCapture
   3     SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MOVE, 0
   4 End If

   1 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

   1 Result = ShellExecute(0, vbNullString, "http://felixc.at", vbNullString, vbNullString, SW_SHOWNORMAL)