Reply To: Need Help with program code freezing problems

Lol I think I fix went to

And found this cool code

Basically I added this code

Sub Delay(ByVal nSeconds As Single)

Dim nStart As Single



nStart = Timer



Do

DoEvents

Loop Until Timer - nStart >= nSeconds

End Sub

Then I change the timer code to this

If Check1.Value = 1 Then

Call RoomSend(RichTextBox1.TextRTF)

DoEvents

Call Delay(10)

End If

If Check2.Value = 1 Then

Call RoomSend(RichTextBox2.TextRTF)

DoEvents

Call Delay(10)

End If

If Check3.Value = 1 Then

Call RoomSend(RichTextBox3.TextRTF)

DoEvents

Call Delay(10)

End If

If Check4.Value = 1 Then

Call RoomSend(RichTextBox4.TextRTF)

DoEvents

Call Delay(10)

End If

If Check5.Value = 1 Then

Call RoomSend(RichTextBox5.TextRTF)

DoEvents

Call Delay(10)

End If

Yess it doesnt freeses nomore 😈