Една задачка за VB

[RSFireblade]

Здравейте. Искам да помоля някай да направи програмка при която когато се натисне лявото копче на мишката да дърпа стрелката към височина 3000. Не искам да има копчета за настройка или някакви такива усложняващи проекта неща. Просто искам да видя принцъпът какъв е .

Благодаря.

[VIS]

Това ще свърши ли работа ?

Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, A As Single, B As Single)
Dim jump As Long
Dim X, Y As Long
jump = SetCursorPos(X, Y)
End Sub

Като при SetCursorPos(X, Y) заместваш X и Y със съответните стойности по желание.

[RSFireblade]

Абе нещо немога баш да се ориентирам .

Как да я направя така , че като натисна върху формата и мишката да се дърпа към височина 3000.

Мерси.

[crio]

Функцията SetCursorPos приема стойностти на X и Y в пискели, а числото 3000 предполагам е в twips, заради което трябва да се пресметне позицията в пиксели.

SetCursorPos(100, Int(3000 / Screen.TwipsPerPixelY))