Public Class MidiPort
 
 
    Private Declare Function midiOutMessage Lib "winmm.dll" (ByVal hMidiOut As _
      Integer, ByVal msg As String, ByVal dw1 As String, ByVal dw2 As Integer) _
      As Integer
    Private Declare Function midiOutGetNumDevs Lib "winmm.dll" () As Integer
 
    Private Sub MidiPort_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim Anzahlports As Integer
        Dim Portname As String = Space(128)
        Dim retVal1 As Integer
        Anzahlports = midiOutGetNumDevs
 
        For i As Integer = 0 To (Integer.Parse(Anzahlports) - 1)
            retVal1 = midiOutMessage(i, "DRV_QUERYDEVICEINTERFACE", Portname, _
              128)
            MessageBox.Show(Portname)
        Next i
 
    End Sub
    Private Sub MidiPorterfassung()
 
    End Sub
End Class