L'ho scritto ora "a mano", quindi può essere migliorato molto, cmq tanto per darti un'idea (anche di come è facile usare questa funzione API):
codice:
Private Type POINTAPI
    X As Long
    Y As Long
End Type

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
Dim lp As POINTAPI
GetCursorPos lp
If lp.X < 100 And lp.X > 0 Or lp.Y < 200 And lp.Y > 50 Then  'la coordinata orizzontale
'è compresa tra 0 e 100, metti le coordinate del tuo command
'image1.picture = metti cosa ti pare
Else
'image1.picture = metti cosa ti pare
End If
End Sub
Il sistema di misura deve essere in pixel..

ciao