Ayuda con editor de texto

[Alquimista_hack]

hola estoy programando un editor de texto, lo tengo casi completo.
Lo unico que me falta y que no se como se hace son la opcion de desaser y la opcion de imprimir utilizando el common dialog

Estuve buscando en google y los codigos que encontre no me funcionaron.
Por favor si alguien sabe como poostelo

Salu2

[HaDeS, -]

Para deshacer el texto se hace:

Código (vb) [Seleccionar] Expandir


Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const DESHACER = &HC7

Private Sub Command1_Click()
SendMessage Text1.hwnd, DESHACER, 0&, 0&
End Sub


Con el codigo para imprimir debe ser algo como

Código (vb) [Seleccionar] Expandir


CommonDialog1.ShowPrinter


pero no se que mas le sigue, como no tengo impresora no puedo publicar con certeza el codigo, asi que lo dejo a medias
alguien que tenga impresora o donde conseguir la forma de imprimirlo que nos de una mano que tmb quiero aprender.
saludos