Sticky Snap-to-Center Controls

Public Class Form1

    ' Starting time of the Snap Hold
    Private dSnapStart As Date
    ' When the Snap Hold should break
    Private dSnapEnd As Date
    ' Duration of the Snap Hold - set this value to 
    ' determine how long we hold the cursor
    Private dReleaseTime As Double = 250

    Private Sub SnapToCenter(ByVal control As Control)
        Dim objPoint As Point
        ' get the center of the control
        objPoint.X = control.Width / 2
        objPoint.Y = control.Height / 2

        Cursor.Position = control.PointToScreen(objPoint)
    End Sub

    Private Sub StartSnap(ByVal sender As System.Object, ByVal e As System.EventArgs)
        SnapToCenter(CType(sender, Control))
        dSnapStart = Date.Now
        dSnapEnd = dSnapStart.AddMilliseconds(dReleaseTime)
    End Sub

    Private Sub CheckSnap(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
        If Date.Now < dSnapEnd Then
            SnapToCenter(CType(sender, Control))
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AddHandler Button1.MouseEnter, AddressOf StartSnap
        AddHandler Button1.MouseMove, AddressOf CheckSnap
    End Sub

End Class