Private Sub Form_Load()
'Crea el formulario con todas las cosillas dentro
'colocacion de el el cuadro de texto
'margen derecho el tamaño del parrafo o columna
txtBox.RightMargin = 7.3
'para que vaya centrada la letra
txtBox.SelAlignment = 2
'para que tenga margen a la parte izquierda
txtBox.SelIndent = 2
mnuEditDeshacer.Enabled = False
txtBox.AutoVerbMenu = True
If SendMessage(txtBox.hWnd, EM_CANUNDO, 0&, ByVal 0&) Then
mnuEditDeshacer.Enabled = True
cmdDeshacer.Enabled = mnuEditDeshacer.Enabled
End If
txtBox.Top = 0 + tbHerramientas.Height
txtBox.Left = 0
'''''''''''''''''''''''''''''''''''''''''''''''
txtBox.Font.size = 11
filename = ""
fullname = ""
Actualizado = True
mnuSearchFindnext.Enabled = False
start = 1
End Sub