Private Function LoadMidi(ByVal file As String) As Boolean
'***************************************************
'Author: Juan Martín Sotuyo Dodero (Maraxus)
'Last Modification: 16/03/04
'Loads a midi to memory
'***************************************************
On Error GoTo ErrHandler
    If Not FileExist(file, vbArchive) Then Exit Function

    Call StopMidi

    'Destroy old object
    Set Segment = Nothing

    Set Segment = Loader.LoadSegment(file)

    If Segment Is Nothing Then
        Exit Function
    End If

    Segment.SetStandardMidiFile

    LoadMidi = True
Exit Function

ErrHandler:
End Function