Hallo,
ich weiß jetzt zwar nicht ganz, was du machen willst, aber so wie ich das sehe willst du die Mauskoordinaten (x,y,) abfragen.

Das geht mit folgendem Code, den du einfach oben in deinen Sourcecode einfügst:
Code:
'API-Funktion deklarieren
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Public Type POINTAPI 'Variablentyp deklarieren
   X As Long
   Y As Long
End Type
So kannst es dann verwenden:
Code:
Dim CursorPos As POINTAPI 'Variable deklarieren

Call GetCursorPos(CursorPos) 'API-Funktion aufrufen
Dann mit "CursorPos.x" bzw "CursorPos.y"

(http://www.shadoware.de/vb/mousepos.html)

MfG C_Classic

PS: Ein Windows im Windows? Sowas hatte ich auch mal, bis ich mich gefragt hatte was das denn eigentlich werden soll...