Private Sub Command2_Click()
Dim i As Integer
Dim strFile As String
Open "a:Coffee.dat" For Input As #1
Do Until EOF(1)
Input #1, strFile
Text1(i) = strFile
i = i + 1
Loop
End Sub
i mean like in vb, you double click on a project file and it opens the file in vb on the main screen instead of just opening vb and not putting the project on the main screen. Is there a way to say:
Code:
Form1_Load(FileName As String)
If FileName <> "" Then
Open FileName in Text1.Text
End If
End Sub