Little Help Here???

[kamuishirou07]

I need to write a loop that send text after a certain interval... How do i do that???
Thank you for ur assistance...

Private Sub CmdSend_Click()

Dim mystring As String

If txtSend.Text = "" Then txtSend.SetFocus
mystring = txtSend.Text
txtRecv = mystring
MSComm1.Output = Right$(mystring, 157) + vbCr

End Sub

[Edneeis]

Just use a timer.

[kamuishirou07]

Meaning using the following sentence in my function:
Timer1.Interval = 10000
Is that wat u mean???
thank you for ur assistance.

[Edneeis]

No I mean add a Timer control to the form and at the form load or at the button press then set the Timer1.Interval=10000 and make sure it is enabled (Timer1.Enabled=True). Then in the Timer1_Timer event put any code you want to execute as frequently as the interval.

[oo7]

Correct just use a timer will do all the job
Girl, do you understand???

[Ambivalentiowa]

Private Sub CmdSend_Click()
 
Dim mystring As String
 
    If txtSend.Text = "" Then txtSend.SetFocus
    mystring = txtSend.Text
    txtRecv = mystring
    MSComm1.Output = Right$(mystring, 157) + vbCr
    
End Sub

What is the point of the line txtRecv=mystring? Isn't mystring the string you're sending, not recieving?

[kamuishirou07]

Yes...
but i need to see if wat i send is wat i received......