Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Option Explicit
Const FILTRO_EXTENSIONES As String = "Archivos de texto (txt)|*.txt|" & _
"Rich Text Formato (RTF)|*.rtf|" & _
"Archivos INI|*.ini|Archivos HTML|" & _
"*.htm|Todos los archivos|*.*"
Private Sub abrir_Click()
With CommonDialog1
.DialogTitle = "Abrir Archivo"
.Filter = FILTRO_EXTENSIONES
.ShowOpen
If .FileName = "" Then Exit Sub
RichTextBox1.LoadFile .FileName
End With
End Sub