Dim Hwnd As integer
Hwnd = 0
Dim x As integer
x = 0
Dim y As integer
y = 0
On Error goto Catch
Capture. GetCarretInfo hwnd, x, y
Catch:
MsgBox(...)
Exit Sub
