Foro de elhacker.net

'/////////////////// 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