intente ponerlo pero me daba errores al probarlo
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úPrivate Sub Command3_Click()
Form1.WindowState = 1
Form1.ShowInTaskbar = False
End Sub
Private Sub Command3_Click()
Call oculto_Load
End Sub
Private Sub oculto_Load()
Form1.WindowState = 1
Form1.ShowInTaskbar = False
End Sub
Private Sub Guardar_Click()
archivo = FreeFile
Open "C:\Users\pc\Desktop\log.txt" For Append As #archivo
Print #archivo, (Text1.Text)
Close
End Sub