Wie kann ich in VB.NET 2003 unabhängig von der Cursorposition erkennen, ob eine Maustaste gedrückt wird?

Um in VB.NET 2003 unabhängig von der Cursor-Position festzustellen, ob eine Maustaste gedrückt wird, benötigst du einen sogenannten "globalen Maushaken" (global mouse hook). Das .NET Framework 1.1 (wie in VB.NET 2003 verwendet) bietet dafür keine eingebaute Unterstützung, daher musst du auf die Windows-API zurückgreifen.

Hier ist das grundsätzliche Vorgehen:

1. **SetWindowsHookEx** verwenden, um einen globalen Maushaken zu setzen.
2. Einen Callback (Hook-Prozedur) implementieren, der auf Maustastenereignisse reagiert.
3. Den Hook wieder entfernen, wenn er nicht mehr benötigt wird.

**Achtung:** Das Setzen eines globalen Hooks erfordert, dass der Hook-Code in einer eigenen DLL liegt. In .NET 1.1 ist das mit reinem VB.NET nicht trivial. Ein Low-Level-Mouse-Hook (WH_MOUSE_LL) kann aber auch aus einer .NET-Anwendung heraus gesetzt werden, allerdings nur für den aktuellen Benutzer.

Hier ein einfaches Beispiel, wie du einen Low-Level-Mouse-Hook in VB.NET 2003 setzen kannst:

```vbnet
Imports System.Runtime.InteropServices

Public Class MouseHook
Private Const WH_MOUSE_LL As Integer = 14
Private Shared hookHandle As IntPtr = IntPtr.Zero
Private Shared hookDelegate As HookProc

Public Delegate Function HookProc(ByVal nCode As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer

<DllImport("user32.dll", SetLastError:=True)>
Private Shared Function SetWindowsHookEx(ByVal idHook As Integer, ByVal lpfn As HookProc, ByVal hMod As IntPtr, ByVal dwThreadId As Integer) As IntPtr
End Function

<DllImport("user32.dll", SetLastError:=True)>
Private Shared Function UnhookWindowsHookEx(ByVal hhk As IntPtr) As Boolean
End Function

<DllImport("user32.dll", SetLastError:=True)>
Private Shared Function CallNextHookEx(ByVal hhk As IntPtr, ByVal nCode As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer
End Function

Public Shared Sub Start()
hookDelegate = AddressOf MouseHookProc
hookHandle = SetWindowsHookEx(WH_MOUSE_LL, hookDelegate, Marshal.GetHINSTANCE(System.Reflection.Assembly.GetExecutingAssembly.GetModules()(0)), 0)
End Sub

Public Shared Sub [Stop]()
If hookHandle <> IntPtr.Zero Then
UnhookWindowsHookEx(hookHandle)
hookHandle = IntPtr.Zero
End If
End Sub

Private Shared Function MouseHookProc(ByVal nCode As Integer, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer
If nCode >= 0 Then
' wParam enthält das Ereignis (z.B. WM_LBUTTONDOWN, WM_RBUTTONDOWN)
' Hier kannst du auf Maustasten prüfen:
Const WM_LBUTTONDOWN As Integer = &H201
Const WM_RBUTTONDOWN As Integer = &H204

If wParam.ToInt32() = WM_LBUTTONDOWN Then
' Linke Maustaste gedrückt
MsgBox("Linke Maustaste gedrückt!")
ElseIf wParam.ToInt32() = WM_RBUTTONDOWN Then
' Rechte Maustaste gedrückt
MsgBox("Rechte Maustaste gedrückt!")
End If
End If
Return CallNextHookEx(hookHandle, nCode, wParam, lParam)
End Function
End Class
```

**Verwendung:**
Rufe `MouseHook.Start()` auf, um den Hook zu setzen, und `MouseHook.Stop()`, um ihn zu entfernen.

**Wichtige Hinweise:**
- Das Beispiel funktioniert nur für den aktuellen Benutzer (nicht systemweit).
- Ein globaler Hook kann zu Instabilitäten führen, wenn er nicht korrekt entfernt wird.
- Für produktive Anwendungen empfiehlt sich eine robustere Fehlerbehandlung und ggf. die Auslagerung des Hooks in eine native DLL.

**Weitere Informationen:**
- [Microsoft-Dokumentation zu SetWindowsHookEx](https://learn.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-setwindowshookexw)

Dieses Vorgehen ist für .NET 1.1 und VB.NET 2003 typisch. Neuere .NET-Versionen bieten komfortablere Möglichkeiten, aber für 2003 ist dies der Standardweg.