Cara Membuat form mengikuti mouse dengan visual basic 6.0 - Hai sobat naga kali ini saya akan membagikan cara membuat form mengikuti mouse dengan Visual Basic 6.0. 
Visual Basic 6.0

Buatlah :
   1. Buat 1 buah form
  • Pilih Standard Exe
2. Buat 1 buah timer.
  • Name : tmrMouse
  • Interval : 1
Ketik atau copy kode dibawah ini, di bagian General (Declarations) :

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Long

Private Type POINTAPI

X As Long

Y As Long

End Type
Private Sub Form_Load()
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, &H1 Or &H2
End Sub

Private Sub tmrMouse_Timer()
Dim p As POINTAPI

GetCursorPos p

Me.Left = (p.X * Screen.TwipsPerPixelX) + 100

Me.Top = (p.Y * Screen.TwipsPerPixelY) + 100

End Sub

Contoh Aplikasi yang Sudah Jadi

Sekian, Tutorial Cara membuat form mengikuti mouse dengan visual basic 6.0. Terima Kasih Telah berkunjung
Temukan Artikel lainnya di Bapaknaga