Option Explicit Private Declare Function LoadCursorFromFile Lib "user32.dll" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As LongPrivate Declare Function SetCursor Lib "user32.dll" (ByVal hCursor As Long) As Long Private hOldCursor As LongPrivate bStop As Boolean Private Sub Form_Load()Dim hCursor As Long hCursor = LoadCursorFromFile("c:\bullseye.cur") If hCursor = 0 Then End Me.Show: DoEvents Do While bStop = False hOldCursor = SetCursor(hCursor) DoEvents LoopEnd Sub Private Sub Form_Unload(Cancel As Integer) bStop = True Call SetCursor(hOldCursor)End Sub
1,1,1,1,0,2,2,2,2
2,2,2,2,0,1,1,1,1