Select Case MyClass.MouseButton
  Case Is = MouseButtons.Left
    Dim iNewPosX, iNewPosY As Integer
    Dim WorkingArea As Rectangle
    iNewPosY = MyClass.Cursor.Position.Y() - MyClass.CurrentPosition.Y()
    iNewPosX = MyClass.Cursor.Position.X() - MyClass.CurrentPosition.X()
    WorkingArea = Screen.PrimaryScreen.WorkingArea
    With WorkingArea
      If iNewPosX < .Left Then
        iNewPosX = .Left
      ElseIf iNewPosX > .Right - Me.Width Then
        iNewPosX = .Right - Me.Width
      End If
      If iNewPosY < .Top Then
        iNewPosY = .Top
      ElseIf iNewPosY > .Bottom - Me.Height Then
        iNewPosY = .Bottom - Me.Height
      End If
    End With
    Me.Location = New Point(iNewPosX, iNewPosY)
  Case Is = Nothing
    Exit Sub
End Select

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.