Form Sürükleme Kodu

 
Option Explicit
Private Declare Sub ReleaseCapture Lib "user32" ()
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
End Sub

Public Sub taşı()
ReleaseCapture
SendMessage hWnd, &HA1, 2, 0
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
taşı
End Sub

Yorum Yapabilmek İçin Üye Girişi Yapmanız Gerekmektedir.

form sürükleme kodu