Advertisement
Advertisement
| 06.20.2008 at 07:22AM PDT, ID: 23502273 |
|
[x]
Attachment Details
|
||
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: |
Private Sub myworkerclass_AddDateTime(ByVal message As String, ByVal thecolor As System.Drawing.Color) Handles myworkerclass.AddDateTime
Me.rtb_messages.Text = message & vbCrLf & Me.rtb_messages.Text
Me.rtb_messages.Select(0, message.Length)
Me.rtb_messages.SelectionColor = thecolor
End Sub
myworkerclass_AddDateTime("Test1!", Color.Purple)
myworkerclass_AddDateTime("Test2!", Color.Red)
myworkerclass_AddDateTime("Test3!", Color.YellowGreen)
myworkerclass_AddDateTime("Test4!", Color.Tomato)
|