Drag Form Tanpa Title Bar CODE IN .NET

untuk memindahkan form yang tidak mempunyai title bar diperlukan code tambahan sebagai berikut:

  Dim newPoint As New System.Drawing.Point()

    Dim a As Integer

    Dim b As Integer

    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown

        a = Control.MousePosition.X - Me.Location.X

        b = Control.MousePosition.Y - Me.Location.Y

    End Sub

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove

        If e.Button = Windows.Forms.MouseButtons.Left Then

            newPoint = Control.MousePosition

            newPoint.X = newPoint.X - (a)

            newPoint.Y = newPoint.Y - (b)

            Me.Location = newPoint

        End If

    End Sub

tinggal paste ae ng form,ok

DOWNLOAD PROJECT