You can create a small application with a Timer control on it. Drop as Timer control on a Form and change it's Interval property to 1000

Code:
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long


Private Sub Timer1_Timer()
    Static dtTime As Date
    Dim lRet As Long
    Dim strMidi As String
    
    dtTime = Time
    If dtTime = #1:30:30 AM# Then
        strMidi = "C:\MyFolder\MyMIDI.mid"
        lRet = mciSendString("open " & strMidi & " Type sequencer Alias MFile", 0&, 0, 0)
        lRet = mciSendString("play MFile", 0&, 0&, 0&)
    End If
End Sub
------------------

Serge

Software Developer
[email protected]
[email protected]
ICQ#: 51055819