Re: For all VB users using cleanslatebot.ocx

[tty]

..

[tty]

.

[Spilled]

can u make the addchat() in vb...?

here:

Code Select Expand


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


use it like this:

Code Select Expand


Addchat vbGreen, "message here"


Enjoy.

[Warrior]

Stop reviving old posts

[Warrior]

~

Look at the DATE