Public Class Form1

        　Inherits System.Windows.Forms.Form

        　Private mouse_offset As Point

        　Private Sub form1_MouseDown(ByVal sender As Object, _

                       ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown

        　　mouse_offset = New Point(e.X, e.Y)

        　End Sub

        Private Sub form1_MouseMove(ByVal Sender As System.Object, _

               ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove

        　'按住鼠标左右键均可拖动窗体

        　If e.Button = MouseButtons.Left Or e.Button = MouseButtons.Right Then

        　　Dim mousePos As Point = Sender.findform().MousePosition

        　　'获得鼠标偏移量

        　　mousePos.Offset(-mouse_offset.X, -mouse_offset.Y)

        　　'设置窗体随鼠标一起移动

        　　Sender.findform().Location = mousePos

        　End If

        End Sub

        Private Sub BtnExit_Click(ByVal sender As System.Object, _

               ByVal e As System.EventArgs) Handles Button1.Click

        　'关闭窗体

        　Me.Close()

        End Sub