Option Explicit

Dim objDX8  As New DirectX8
Dim objDSE  As DirectSoundEnum8
Dim objDSCE As DirectSoundEnum8

Private Sub Form_Load()
  Dim i As Single

  On Error GoTo ERROUT

  Set objDSE = objDX8.GetDSEnum
  lbl_Device.Caption = "Anzahl Soundkartentreiber: " & _
        objDSE.GetCount

  lst_SK.Clear
  For i = 1 To objDSE.GetCount
    lst_SK.AddItem objDSE.GetDescription(i) & _
          " - " & objDSE.GetName(i) & " - " & _
          objDSE.GetGuid(i)
  Next i
  lst_SK.ListIndex = 0

  Set objDSCE = objDX8.GetDSCaptureEnum
  lbl_Capture.Caption = "Anzahl Aufnahmetreiber: " & _
        objDSCE.GetCount

  lst_Capture.Clear
  For i = 1 To objDSCE.GetCount
    lst_Capture.AddItem objDSCE.GetDescription(i) & _
          " - " & objDSCE.GetName(i) & " - " & _
          objDSCE.GetGuid(i)
  Next i
  lst_Capture.ListIndex = 0

  Exit Sub

ERROUT:
  MsgBox "Fehler beim Einlesen der Soundkarten.", vbExclamation
  End
End Sub

Private Sub cmd_Close_Click()
  DXClose
End Sub

Private Sub DXClose()
  Set objDSE = Nothing
  Set objDSCE = Nothing
  Set objDX8 = Nothing
  End
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UloadMode As Integer)
  DXClose
End Sub