Visual Basic - Edicion en un Richtextbox

Hola amigos
Tengo una aplicacion semejante a l bloc de notas en la cual cree un menu
Archivo Edicion y otros
1)En Edicion hice la opcion (Deshacer Eliminar) Como puedo crear el codigo de esta opcion es igual que a la opcion que tiene el Word
2)Como puedo adionar un icono a la opcion que yo seleccione del menu
ej.
En el Word la opcion Abrir tiene un icono el cual esta representado por una carpeta abierta como puedo asignarle ese icono a cada opcion de mi menu?

Si pudieran ayudarme lo antes posible se lo ahgradeceria con el alma

Gracias.....

1) Para crear lo opcion Deshacer ... tenes que llamar a la API SendMessage.

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Y estos son los parametros:
· hWnd
Este representa al id. de la ventana que lo esta llamando en este va text1.hwnd

· Msg
Especifica el mensaje que esta enviando
Ej: Public Const EM_UNDO = &HC7

· wParam
Mensaje adicional (&0)

· lParam
Parametros que le pasas

'Deshacer:
'Nota: si se hace de esta forma,
'no es necesario usar una variable para asignar el valor devuelto.
If SendMessage (text1.hWnd, EM_UNDO, 0, ByVal 0&) Then
End If
'también: x = SendMessage(text1.hWnd, EM_UNDO, 0, ByVal 0&)

'Este codigo esta extraido de la pagina del Guille
http://guille.costasol.net

2) Creas una barra de herramientas (como quieras con iconos con ToolBar, CoolBar, o con un Picture y al evento Click del icono correspondiente lo envias al evento click del menu, de esta manera te ahorras de escribir dos veces lo mismo (p. ej:

Private sub imgDeshacer_click()
mnuEdDeshacer_click
End Sub
)