ich möchte gerne bei Klick auf ein Label (in einer Multipage) ein zweites Label anzeigen, dass so eingeblendet wird, dass der Mauszeiger genau mittig auf diesem Label steht. Ich habe dazu - weil die "einfache" Cursorposition ja nur die Position des Mauszeigers innerhalb des Labels bzw der Multipage herausgibt - schon was anderes gefunden:
Private Declare
Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Sub cursorpos()
Dim pTargetPoint As POINTAPI
Dim lRetVal As Long
lRetVal = GetCursorPos(pTargetPoint)
pos_mouse_x = pTargetPoint.x
pos_mouse_y = pTargetPoint.y
End Sub
Damit kann ich die Cursorposition auf dem Bildschirm ermitteln.
Das scheint mir recht zielführend zu sein, allerdings weiß ich nicht, wie ich Label in Anlehnung an die Cursorposition auf dem BILDSCHIRM (nicht in der Userform) platziere....
Oder gibts vllt eine einfachere Möglichkeit ein Label mittig hinter dem Mauszeiger einzublenden?
Danke, Danke, Danke!
VG Steffen.