Public Sub comando(ByVal comandi As String)

com1 = My.Computer.Ports.OpenSerialPort(ListBox1.Selected Item)
com1.Write(comandi)
'punto in cui vorrei fermare l'esecuzione
While com1.BytesToRead > 0
TextBox1.Text &= Chr(com1.ReadByte())

End While

com1.Close()



End Sub


con questo codice, prima che legga la risposta del modem vorrei che si fermasse per due secondi e poi legga la risposta, come potrei fare??ho provato con un timer (funzionava ma non molto bene) ma ci sono anche altre soluzioni??