OK, I downloaded the controls and tried them. They are handeled like anything else you want to move. Try this:
CODE
Imports System.Windows.Forms
Public Class Form1
Dim OldPosition As New Point(0, 0)
Dim MouseDwn As Boolean = False
Private Sub OvalShape1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles OvalShape1.MouseDown
MouseDwn = True
OldPosition = Cursor.Position
End Sub
Private Sub OvalShape1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles OvalShape1.MouseMove
Dim ov As PowerPacks.OvalShape = sender
If MouseDwn Then
If Windows.Forms.MouseButtons.Left Then
ov.Location -= (OldPosition - Cursor.Position)
OldPosition = Cursor.Position
End If
End If
End Sub
Private Sub OvalShape1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles OvalShape1.MouseUp
MouseDwn = False
End Sub
End Class
| 