[أسامة]

يمكنك باستخدام Checkbox
أولآ اجعل خاصيه
FormBorderStyle = None
من الخصائص
او بى هذا الكود

كود :

Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None

ثم هذا الكود لى تحريك الفرم او لا

كود :

Dim Chck As Integer
    Dim mouseMovx As Integer
    Dim mouseMovy As Integer

    Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        Chck = True
        mouseMovx = Windows.Forms.Cursor.Position.X - Me.Left
        mouseMovy = Windows.Forms.Cursor.Position.Y - Me.Top
    End Sub

    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
        If Chck = True And CheckBox1.Checked = True Then
            Me.Top = Windows.Forms.Cursor.Position.Y - mouseMovy
            Me.Left = Windows.Forms.Cursor.Position.X - mouseMovx
        End If
    End Sub

    Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        Chck = False
    End Sub