Ako pitas za polozaj kursora na datoj formi onda stavi ovo na tu formu pa probaj:
Code:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Debug.Print X
Debug.Print Y
End Sub
Ako zelis da dobije polozaj kursora na ekranu onda:
Code:
Option Explicit
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Sub Form_Load()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Dim Point As POINTAPI
GetCursorPos Point
Debug.Print Point.X
Debug.Print Point.Y
End Sub
E pretekao si me :)
SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'