Координаты мышки

[HellScream]

блин забыл чето..
подскажите кк прописывать координаты мышки?

[SHURUP]

Это что ли??

Код: Выделить всё

Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos" (ByVal x As Long, ByVal y As Long) As Long

[HellScream]

не тут чето не пашет...
нада чтоб например:
кликом на Label другой Label вставал на координаты мыши
и как эти координаты записать?

[SHURUP]

АААА!!!

Код: Выделить всё

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label2.Move Label1.Left + X, Label1.Top + Y
End Sub

Или я опять протупил…???

[HellScream]

Во теперь все ок..
сенк

[Phoenix]

Это конечно прикольно, но слабо!
Попробуй:
dim t as integer
Private Sub Form_Load()
t = 0
End Sub

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
load label2(t)
label2(t ).visible = true
Label2(t).Move Label1.Left + X, Label1.Top + Y
t = t+1
End Sub

[SHURUP]

Да! "Прикольно"
При каждом клике создается новый лейбл! Я до 48 штук доклацал - надоело!
А вместо "t" можно использовать "Label2.ubound"
И, собственно, где это может пригодится