VERSION 5.00 Begin VB.Form frmMain Caption = "Reloader" ClientHeight = 480 ClientLeft = 60 ClientTop = 345 ClientWidth = 2055 LinkTopic = "Form1" ScaleHeight = 480 ScaleWidth = 2055 StartUpPosition = 3 'Windows Default Begin VB.CommandButton cmdTest Caption = "Test" Height = 255 Left = 600 TabIndex = 0 Top = 120 Width = 1335 End Begin VB.Timer Timer1 Interval = 1 Left = 0 Top = 0 End End Attribute VB_Name = "frmMain" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Private Sub cmdTest_Click() Open "C:\test.txt" For Output As #1 Print #1, "this is a test" Close #1 End Sub Private Sub Form_Load() End Sub