Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long Private Declare Function GetCursor Lib "user32" () As Long Private Sub Form_Paint() Screen.MousePointer = 1 DrawIcon Picture1.hdc, 0, 0, GetCursor End Sub