Código: Seleccionar todo

Private Sub Command1_Click()
Open App.Path & "\Offset Funcionales.txt" For Append As #1 ' Creamos en la misma carpeta del ejecutable, un archivo llamado "funcionales.txt" y lo 'abrimos en modo append, el modo append es para abrir y añadir texto sin reemplazar el archivo, si el archivo .txt no existe lo crea y ya existe 'añade el numero del offset al final del archivo.
Print #1, , App.EXEName ' Imprimimos en el archivo "funcionales.txt" en nombre del ejecutable
Close #1 ' Cerramos el archivo
End Sub

Private Sub Command2_Click()
End ' Para Cerrar el Anotador 
End Sub

Private Sub Form_Load() ' Inicia el programa
Form1.Caption = "Este offset es funcional" ' El nombre de la ventana sera el que pongan entre las comillas
End Sub ' Se finaliza el programa