Form ohne Titelleiste verschieben

[Bluespide]

in VB.Net nehme ich nen anderen der is einfacher und kürzer finde ich:rolleyes:

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13

Private MausPosition As Point Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown If e.Button = Windows.Forms.MouseButtons.Left Then MausPosition = e.Location End If End Sub Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove If e.Button = Windows.Forms.MouseButtons.Left Then Me.Location = e.Location - MausPosition + Me.Location End If End Sub

---