Private Sub MKMediaplayer_MouseDown(ByVal sender As Object, ByVal e As _
   System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
        StartY = e.Y
        StartX = e.X
    End Sub
 
    Private Sub MKMediaplayer_MouseUp(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
        CType(sender, MKMediaplayer).Location = New Point(CType(sender, _
        MKMediaplayer).Location.X + e.X - StartX, CType(sender, _
        MKMediaplayer).Location.Y + e.Y - StartY)
    End Sub

Mit freundlichen Gr??en

Andre Molenda