Form flikkert bij verplaatsen

[Victorr99]

Hallo,

Ik heb een borderless userform (windows forms application) die ik wil verplaatsen door bovenaan op het panel te klikken en te verplaatsen. De code wat ik nu gebruikt verplaatst de form wel, maar het flikkert door het hele scherm heen.
Hier de code:

    Dim Cordinates As Point
    Private Sub Panel1_MouseDown(sender As Object, e As MouseEventArgs) Handles Panel1.MouseDown
        Cordinates = New Point(-e.X, -e.Y)
    End Sub

    Private Sub Panel1_MouseMove(sender As Object, e As MouseEventArgs) Handles Panel1.MouseMove
        If e.Button = MouseButtons.Left Then
            Dim ControlPosition As Point = PointToClient(MousePosition)
            ControlPosition.Offset(Cordinates.X, Cordinates.Y)
            Location = ControlPosition
        End If
    End Sub

De code heb ik gevonden op internet.
Double Buffering en SetStyle werken beiden niet.

Alvast bedankt!

mvg, Victor

 

[Victorr99]

Na veel uitproberen is het toch gelukt.

    Private Cordinates As Point

    Private Sub Panel1_MouseDown(sender As Object, e As MouseEventArgs) Handles Panel1.MouseDown
        Cordinates = New Point(-e.X, -e.Y)
    End Sub

    Private Sub Panel1_MouseMove(sender As Object, e As MouseEventArgs) Handles Panel1.MouseMove
        If e.Button = MouseButtons.Left Then
            Dim NewPos As Point = MousePosition
            NewPos.Offset(Cordinates)
            Location = NewPos
        End If
    End Sub

Niet veel anders, maar dit werkt wel. (Bij mij tenminste)