Alguien sabe como colocar la imagen que uno seleccion en un imagecombo en el richtextbox? he buscando informacion pero no la encuentro agradeceria la ayuda saludos...

Yo hice lo siguiente pero nose si alguien me podria decir como mejorarlo:

Codigo:


enviar es el richtextbox2
recibir es el richtexbox1
agrego 6 imagenes al imagelist luego las agrego al imagecombo1
luego capturo el valor del combo seleccionado y lo paso a enviar luego doy click en enviar y me muestra la imagen en recibir
el problema es al darle enter me abre Microsoft Photo Editor eso quiere decir que tu tambien puedes hacer doble click en la imagen y abrirla nose si abra alguna ootra forma mas efectiva de hacer esto bueno espero su ayuda salu2 a todos ...

Private Sub Command1_Click()
enviar.SelText = ImageCombo1.SelectedItem.Text
End Sub

Private Sub enviar_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Select Case ImageCombo1.SelectedItem.Text

Case "feliz"
recibir.OLEObjects.Add , , "c:\caras\001.gif"
Case "triste"
recibir.OLEObjects.Add , , "c:\caras\002.gif"
Case "amor"
recibir.OLEObjects.Add , , "c:\caras\007.gif"
Case "zzz"
recibir.OLEObjects.Add , , "c:\caras\015.gif"
Case "wea"
recibir.OLEObjects.Add , , "c:\caras\018.gif"

Case "ok"
recibir.OLEObjects.Add , , "c:\caras\023.gif"
Case Else
recibir.Text = "No selecciono cara"

End Select
enviar.SelText = ""
End If
End Sub

Private Sub Form_Load()
ImageCombo1.ComboItems.Add , , "feliz", 1
ImageCombo1.ComboItems.Add , , "triste", 2
ImageCombo1.ComboItems.Add , , "amor", 3
ImageCombo1.ComboItems.Add , , "zzz", 4
ImageCombo1.ComboItems.Add , , "wea", 5
ImageCombo1.ComboItems.Add , , "ok", 6
End Sub


pero agradeceria me ayudar a mejorarlo