dennis, ken tucker.this code will

[Supra]

this code will worked. i can connected to any servers...but how do i
added method called doColor from usercontrol to module

Sub DisplayMessage( ByVal rtb As RichTextBox, ByVal sText As String,
Optional ByVal Colour As String = "")
rtb.SelectionSt art = rtb.Text.Length
rtb.SelectedTex t = sText <=== i needed to call doColor..but
how?
rtb.ScrollToCar et()
End Sub

thsi

[Herfried K. Wagner [MVP]]

"Supra" <su*****@rogers .com> schrieb:

this code will worked. i can connected to any servers...but how do i
added method called doColor from usercontrol to module

Please stay in the original thread instead of opening new threads for
replies. Thank you for your cooperation!

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[Ken Tucker [MVP]]

Hi,

RichTextBox1.Te xt = "Green"

RichTextBox1.Hi deSelection = False

RichTextBox1.Se lect(0, 5)

RichTextBox1.Se lectionColor = Color.Green

RichTextBox1.Se lectionLength = 0

RichTextBox1.Ap pendText(vbCrLf )

RichTextBox1.Se lectionStart = RichTextBox1.Te xt.Length

RichTextBox1.Se lectionColor = Color.Red

RichTextBox1.Se lectedText = "RED" & vbCrLf

RichTextBox1.Se lectionStart = RichTextBox1.Te xt.Length

RichTextBox1.Se lectionColor = Color.Blue

RichTextBox1.Se lectedText = "BLUE" & vbCrLf

Ken

---------------------------

"Supra" <su*****@rogers .com> wrote in message news:Oo******** ******@TK2MSFTN GP09.phx.gbl...
this code will worked. i can connected to any servers...but how do i added method called doColor from usercontrol to module

Sub DisplayMessage( ByVal rtb As RichTextBox, ByVal sText As String, Optional ByVal Colour As String = "")
rtb.SelectionSt art = rtb.Text.Length
rtb.SelectedTex t = sText <=== i needed to call doColor..but how?
rtb.ScrollToCar et()
End Sub

thsi