'/////////////////// En un modulo
Type PlayRecord
    FileName As String
    SeekAtStart As Long
    Owner As Long
    Result As Long
End Type

Declare Sub mp3gettime Lib "MP3.DLL" (DATA As PlayRecord, total As Double, perframe As Double)
Declare Sub mp3play Lib "MP3.DLL" (DATA As PlayRecord)
Declare Sub mp3stop Lib "MP3.DLL" ()
Declare Sub mp3seek Lib "MP3.DLL" (position As Integer)
[color=Green]'////////////////////////////// En el Form[/color]
Private Sub Form_Load()
Dim PR as PlayRecord
PR.FileName="c:\mp3\...."
Call mp3play(PR)
End Sub

Public der, arr, izq, aba As Boolean
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
        Case 37
                der = True
        Case 38
                arr = True
        Case 39
                izq = True
                
        Case 40
                aba = True
                
    End Select
    If der = True Then
        Timer1.Enabled = True
        Image1.Picture = ImageList1.ListImages(2).Picture
    End If
    If arr = True Then
        Timer2.Enabled = True
        Image1.Picture = ImageList1.ListImages(1).Picture
    End If
    If izq = True Then
        Timer3.Enabled = True
        Image1.Picture = ImageList1.ListImages(3).Picture
    End If
    If aba = True Then
        Timer4.Enabled = True
        Image1.Picture = ImageList1.ListImages(4).Picture
    End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
        Case 37
               Timer1.Enabled = False
        Case 38
               Timer2.Enabled = False
        Case 39
               Timer3.Enabled = False
        Case 40
               Timer4.Enabled = False
    End Select
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
End Sub

Private Sub Timer1_Timer()
    Image1.Left = Image1.Left - 100
    If Image1.Left <= 0 Then
        Image1.Left = Image1.Left + 100
    End If
End Sub

Private Sub Timer2_Timer()
    Image1.Top = Image1.Top - 100
    If Image1.Top <= 0 Then
        Image1.Top = Image1.Top + 100
    End If
End Sub

Private Sub Timer3_Timer()
    Image1.Left = Image1.Left + 100
    If Image1.Left >= 7080 Then
        Image1.Left = Image1.Left - 100
    End If
End Sub

Private Sub Timer4_Timer()
    Image1.Top = Image1.Top + 100
    If Image1.Top >= 7440 Then
        Image1.Top = Image1.Top - 100
    End If
End Sub