Addchat function...
Public Sub AddChat(Optional ByVal TextColor As Long = vbWhite, Optional ByVal strText As String = "", Optional ByVal ClearTextLenOver As Long = 50000)
With Form1.rtbChat
If Len(.Text) > ClearTextLenOver Then .Text = ""
.SelStart = Len(.Text)
.SelColor = TextColor
.SelText = .SelText & strText
.SelStart = Len(.Text)
End With
End Sub
But, it can do like this:
text1.text = text1.text + "What ever text you wanna type"
Public Sub AddChat(Optional ByVal TextColor As Long = vbWhite, Optional ByVal strText As String = "", Optional ByVal ClearTextLenOver As Long = 50000)
With Form1.rtbChat
If Len(.Text) > ClearTextLenOver Then .Text = ""
.SelStart = Len(.Text)
.SelColor = TextColor
.SelText = .SelText & strText
.SelStart = Len(.Text)
End With
End Sub
But, it can do like this:
text1.text = text1.text + "What ever text you wanna type"