Merhaba, çoğu kişinin aradığı cevabı aşağıda detaylı olarak yazdım
1) Öncelikle projenize bir "panel" ekleyin.



2) Panelin "özellikler" kısmından "olaylar" düğmesine basın. Açılan sekmeden kutu içine aldığım yerlere çift tık yaparak kod bölümüne gidiyoruz.



3) Verdiğim kodları resimdeki gibi yerlerine yazın.



Alıntı:
1)
bool tutus;
int FareX, FareY;

2)
if (tutus == true) {

this.Left = Cursor.Position.X - FareX;
this.Top = Cursor.Position.Y - FareY;
}

3)
tutus = false;
FareX = 0;
FareY = 0;

4)
tutus = true;
FareX = Cursor.Position.X - this.Left;
FareY = Cursor.Position.Y - this.Top;
Alıntı:
R3X´isimli üyeden Alıntı (Mesaj 9216845)
vb.net versiyonu;

Kod:
Dim draggable As Boolean
Dim mouseX As Integer
Dim mouseY As Integer
Private Sub Panel1_MouseUp(sender As Object, e As MouseEventArgs) Handles Panel1.MouseUp
draggable = False
End Sub

Private Sub Panel1_MouseMove(sender As Object, e As MouseEventArgs) Handles Panel1.MouseMove
If draggable Then
Me.Top = Cursor.Position.Y - mouseY
Me.Left = Cursor.Position.X - mouseX
End If
End Sub

Private Sub Panel1_MouseDown(sender As Object, e As MouseEventArgs) Handles Panel1.MouseDown
draggable = True
mouseX = Cursor.Position.X - Me.Left
mouseY = Cursor.Position.Y - Me.Top
End Sub


Katkısından dolayı teşekkür ediyorum


Başka bir konuda görüşmek üzere hoşça kalın