..

.

[quote author=The_Lost_One link=topic=500.msg3454#msg3454 date=1047903809]
can u make the addchat() in vb...?
[/quote]

here:

[code]
Public Function AddChat(ParamArray saElements() As Variant)
    Dim i As Integer
        With frmMain.rtbChat
        .SelStart = 999999999
        .SelLength = 0
        .SelColor = &HE0E0E0
        .SelText = "[" & Format$(Time, "hh:mm:ss] ")
        .SelStart = 999999999
        End With
    For i = LBound(saElements) To UBound(saElements) Step 2
        With frmMain.rtbChat
        .SelStart = 999999999
        .SelLength = 0
        .SelColor = saElements(i)
        .SelText = saElements(i + 1) & Left$(vbCrLf, -2 * CLng((i + 1) = UBound(saElements)))
        .SelStart = 999999999
        End With
    Next i
       
End Function
[/code]

use it like this:
[code]
Addchat vbGreen, "message here"
[/code]

Enjoy.

Stop reviving old posts

[quote author=MrRaza link=topic=500.msg3459#msg3459 date=1048290193]
~


[/quote]

Look at the DATE