Public Class Form1
  Inherits System.Windows.Forms.Form

Vom Windows Form Designer generierter Code

  Private CurrentPosition As New System.Drawing.Point
  Private MouseButton As _
          System.Windows.Forms.MouseButtons = Nothing

  Private Overloads Sub OnMouseDown( _
          ByVal Sender As System.Object, _
          ByVal e As System.Windows.Forms.MouseEventArgs) _
          Handles MyBase.MouseDown

    MyClass.MouseButton = e.Button()
    With MyClass.CurrentPosition
      .X = e.X()
      .Y = e.Y()
    End With
  End Sub

  Private Overloads Sub OnMouseUp( _
          ByVal Sender As System.Object, _
          ByVal e As System.Windows.Forms.MouseEventArgs) _
          Handles MyBase.MouseUp

    MyClass.MouseButton = Nothing
  End Sub

  Private Overloads Sub OnMouseMove( _
          ByVal Sender As System.Object, _
          ByVal e As System.Windows.Forms.MouseEventArgs) _
          Handles MyBase.MouseMove

    Select Case MyClass.MouseButton
      Case Is = MouseButtons.Left
        MyClass.Top = MyClass.Cursor.Position.Y() - _
              MyClass.CurrentPosition.Y()
        MyClass.Left = MyClass.Cursor.Position.X() - _
              MyClass.CurrentPosition.X()
      Case Is = Nothing
        Exit Sub
    End Select
  End Sub

  Private Sub Form1_Load(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles MyBase.Load
    Label1.Text = "FormBorderStyle = None"
  End Sub

  Private Sub Button1_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles Button1.Click
    MyClass.Close()
  End Sub
End Class