Okay... I figured it out... you have to put something into the () like this;
Private
Sub cmdCanPlay_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Long
i = waveOutGetNumDevs()
If i > 0 Then
MsgBox("Your system can play sound files.", vbInformation, "Sound Card Test")
Else
MsgBox("Your system can not play sound Files.", vbInformation, "Sound Card Test")
End If
End Sub
Now it works... Thanks... But, I'd still like to know how to get it to show up only once...