Option Explicit

Private Sub Form_Click()
    Static intList As Integer
    intList = intList + 1
    If intList > 3 Then intList = 1
    MousePointer = vbCustom
    MouseIcon = ImageList1.ListImages(intList).Picture
End Sub

Option Explicit

`Loads cursors and creates mouse pointer handle
Private Declare Function LoadCursorFromFile _
Lib "user32" Alias "LoadCursorFromFileA" ( _
    ByVal lpFileName As String _
) As Long

`Changes class information for a window
Private Declare Function SetClassLong _
Lib "user32" Alias "SetClassLongA" ( _
    ByVal hwnd As Long, _
    ByVal nIndex As Long, _
    ByVal dwNewLong As Long _
) As Long

`Index of mouse pointer in window class structure
Private Const GCL_HCURSOR = (-12)
Private hOldCursor As Long

Private Sub Form_Load()
    Dim hNewCursor As Long
    `Get handle to new animated mouse pointer
    hNewCursor = LoadCursorFromFile _
        ("C:\WINDOWS\CURSORS\DRUM.ANI")
    `Replace window's mouse pointer with new 
    `animated mouse pointer
    hOldCursor = SetClassLong(Form1.hwnd, GCL_HCURSOR, _
        hNewCursor)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    `Restore original mouse pointer to prevent animated 
    `mouse pointer from being retained
    hOldCursor = SetClassLong(Form1.hwnd, GCL_HCURSOR, _
        hOldCursor)
End Sub

Option Explicit

Private X1, Y1

Private Sub Form_MouseDown( _
    Button As Integer, _
    Shift As Integer, _
    X As Single, _
    Y As Single _
)
    X1 = X
    Y1 = Y
End Sub

Private Sub Form_MouseUp( _
    Button As Integer, _
    Shift As Integer, _
    X As Single, _
    Y As Single _
)
    Line (X1, Y1)-(X, Y)
End Sub