[2008] Chat Program With Emoticons?

I have made a GUI for my chat program and I'm going to finish the server stuff later. I am using Emoticons ( ) in both ASCII form and picture form. The ASCII ones work perfectly. I have taken the picture ones and put their pictures on buttons so their click event copies and pastes the picture to the rich text box I'm using for text input, but when i hit the submit button, it doesn't copy the picture.I'm using this code to copy the image from the buttons:

Clipboard.Clear()
Clipboard.SetImage(Me.btnSmi.Image)
Me.rtbIn.Paste()

ive tried making it so it copies the picture from the rich text box but that didnt work. i tried declaring a global variable (imgEmo as image) and the setting the variable = to what ever emoticon button is pushed at the time (click event) and using the following code in the submit button's click event:

Clipboard.Clear()
Clipboard.SetImage(imgEmo)
Me.rtbChat.Paste()

This is the code for my submit button:

rtbChat.Text += ((txtIn.Text + (" --") + (TimeOfDay)))

As a side problem, how do i make it so that every time i hit the submit button it starts a new line and formats the comment like this:

James says: (what ever the message is) --(TimeOfDay)
Kristie says: (What ever her message is) --(TimeOfDay)

I understand that for her answer to be there i need a server and all sorts of other code but i am not interested in that yet. I just need that format.

(Name) says: (string) --(Time)
(Name) says: (string) --(Time)

The name is coming from a separate form, the login form, and it is displayed in the top of my main form as "-- Welcome (Name)". i used the text changes event of the main form to then close the login form. I tried using this line of

'This was a global
Dim strNom As String = Login.txtUrn.Text
'in the submit button's click event
rtbChat.Text += ((strUrn) + ("says: ") + (rtbIn.Text) + (" --") + (TimeOfDay))
strUrn = strNom

This did nothing, in the chat box it returned "says: (message) --(TimeOfDay)".