dzqdiy.bas

解压后为多媒体电子琴源代码,希望大家喜欢！

Attribute VB_Name = "Module1"
Public Declare Function _
    midiOutOpen Lib "winmm.dll" _
    (lphMidiOut As Long, _
    ByVal uDeviceID As Long, _
    ByVal dwCallback As Long, _
    ByVal dwInstance As Long, _
    ByVal dwFlags As Long) As Long

Public Declare Function _
    midiOutClose Lib "winmm.dll" _
    (ByVal hMidiOut As Long) As Long

Public Declare Function _
    midiOutShortMsg Lib "winmm.dll" _
    (ByVal hMidiOut As Long, _
    ByVal dwMsg As Long) As Long