Option Explicit
Dim sRuta As String
 
Private Sub Cmd_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Cmd.Picture = LoadPicture(sRuta & "Imagen2.jpg")
End Sub
 
Private Sub Form_Load()
    'La popiedad Style del CommandButton debe ser igual a 1
 
    'definimos la ruta donde se encuentran las imagenes
    sRuta = "C:\Documents and Settings\usuario\Escritorio\Imagenes\"
 
    'cargamos la imagen
    Cmd.Picture = LoadPicture(sRuta & "Imagen1.jpg")
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
     Cmd.Picture = LoadPicture(sRuta & "Imagen1.jpg")
End Sub