Visual Basic - Mandar un dato continuamente

Os explico por que me estoy liando

Mi idea es que através de winsock em mandar comandos a un equipo, pero el problema que tengo es que debería mandar cada X tiempo 1 segundo 2 o como mucho 5 un comando de pregunta

Un pequeño ejemplo

Winsock1.SendData "%1POWR ?" & Chr(13)

Pero como puedo hacer para que lo mando cada X tiempo.

Pon un objeto TIMER que lo llame o ejecute cada cierto tiempo.

Me podrias poner un ejemplo

Seria algo asi

Timer1.timer

Winsock1.SendData "%1POWR ?" & Chr(13)

Esto seria un sencillo programa para ejecutar Winsock cada segundo

Private Sub Form_Load()
Timer1.Interval = 100 ' Un segundo
End Sub

Private Sub Timer1_Timer()
Winsock1.SendData "%1POWR ?" & Chr(13)
End Sub

Creo que no te di las gracias, asi que mas vale tarde que nunca gracias Antoni Masana