Hangi Formda kullanıcaksanız formun Kod Görünümde (ALT+F11) herhangi bir boş alana aşağıdaki kodu yapıştırın
Kod:
Sub moveform(frm As Form)
Dim ReturnVal As Long
ReleaseCapture
ReturnVal = SendMessage(frm.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)
If ReturnVal = 0 Then
End If
End SubDaha sonra hangi nesne yardımı ile formu taşıyacaksanız o nesnenin FARE TUŞUNA BASILIRKEN olayına aşağıdaki kodu yapıştırdığınız çalışacaktır.
Kod:
If Button = 1 Then moveform MeDaha önceki yorumumda gönderdiğim linkin içerisinde ki örnekte de bu mevcuttu.
İyi çalışmalar dilerim.
