Ayúdame a crear una aplicación de bloc de notas usando VB

'En el módulo

Deshacer público como nueva colección

Rehacer público como nueva colección

' Ubicación de la ventana de configuración

' Función de declaración pública SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long ) Siempre

'Inicialización: H8

Const privada SWP_ NOACTIVATE = amp; H10

Const privada SWP_FRAMECHANGED = amp; Const privada SWP_SHOWWINDOW = amp; H40

Const privada SWP_ NOCOPYBITS = amp; H80

Const privada SWP_NOOWNERZORDER = amp; p>

Constante privada SWP_NOREPOSITION = SWP_NOOWNERZORDER

Constante privada HWND_TOP = 0

Constante privada HWND_BOTTOM = 1

Constante privada HWND_TOPMOST = -1

Private Const HWND_NOTOPMOST = -2

'El proceso de configurar el formulario en la parte superior

Public Sub SetOnTop(frm As Object, bSetting As Boolean)

Si bSetting Then

'Configura el formulario para que siempre esté en la parte superior

SetWindowPos Form1.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE O SWP_NOSIZE

Else

'Cancela la configuración de que el formulario esté siempre en la parte superior.

Configuración

SetWindowPos Form1.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE o SWP_NOSIZE

Finalizar si

Finalizar sub

'En ventana

Opción explícita

Función de declaración privada SendMessage Lib "user32" Alias ​​​​"SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) Siempre que

Const privada EM_CANUNDO = amp HC6

Const privada EM_UNDO = amp HC7

Dim rtbUndoStack() como cadena 'Deshacer pila;

Dim rtbRedoStack() As String 'Restaurar pila

Dim bChg As Boolean 'Registra si el contenido del cuadro de texto enriquecido ha cambiado

Advertencia atenuada As Long

Sub privado Form_Load()

UndoStack.Add MainTxtBox.Text() End If

Fin Sub