Con este codigo puedes reproducir sonidos wav desde visual basic

 Private  Declare Function sndPlaySound Lib "WINMM.DLL" Alias _
      "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As _
      Long) As Long
   Const SND_SYNC = &H0
   Const SND_ASYNC = &H1
   Const SND_NODEFAULT = &H2
   Const SND_LOOP = &H8
   Const SND_NOSTOP = &H10

   Sonido$ = "c:\windows\media\chord.wav"
   wFlags% = SND_ASYNC Or SND_NODEFAULT
   x% = sndPlaySound(SoundName$,wFlags%)

Para listar las impresoras de nuestro sistema podemos utilizar y ver este ejemplo. Crear Un Combo1 y un command1 y agregar estos códigos.

Private Sub Command1_Click()
For Each InfoPrinter In Printers
If UCase(Combo1.Text) = UCase(InfoPrinter.DeviceName) Then
Set Printer = InfoPrinter.DeviceName ‘ establezemos la impresora por defecto
Exit For
End If
Next

End Sub

Private Sub Form_Load()
‘Agregamos las impresoras a combo1
For Each InfoPrinter In Printers
Combo1.AddItem InfoPrinter.DeviceName
Next

End Sub