Io ti consiglio un approcio completamente diverso (come ha fatto MItaly): prima di tutto dichiari un'array di Short e lo riempi con i parametri che dovrai passare a PlayTone.
codice:
'Tre è un valore puramente indicativo, puoi mettere il valore che vuoi.
Dim Parameters(3) as Short
'Per riempire l'array puoi usare anche un For...Next, purchè i numeri inseriti abbiano un qualche
'ordine che adesso mi sfugge.
Parameters(0) = 1046
Parameters(1) = 1175
Parameters(2) = 1319
Parameters(3) = 1046
Poi con un ciclo For...Next richiami la routine e inserisci un tot di pausa:
codice:
For i As Short = 0 To Parameters.Length - 1
  PlayTone(Parameters(i), 1)
  Application.DoEvents() 'Processo gli eventi in coda
  Threading.Thread.Sleep(1000)
Next
Naturalmente se fai tutto in un thread esterno, l'Application.DoEvents() non serve.