Option Explicit

Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () _
        As Long

Private Sub Command1_Click(Index As Integer)
  Select Case Index
    Case 1
      If IsSoundkarte Then
        Label1.ForeColor = &H8000&
        Label1.Caption = "Es ist eine Soundkarte installiert."

      Else
        Label1.ForeColor = &HC0&
        Label1.Caption = "Es ist leider keine Soundkarte " & _
                "installiert."
      End If

    Case Else
      Unload Me
  End Select
End Sub

Private Function IsSoundkarte() As Boolean
  IsSoundkarte = waveOutGetNumDevs() > 0
End Sub