Private No As Integer, No2 As Integer
 
Private Sub Naechstes()
  dim strline as string, strline2 as string
  Line Input #No, strline
  line input #no2, strline2
  text1.text = strline
  text2.text = strline2
End Sub
 
Private Sub Form_Load()
  no = freefile
  no2 = freefile
  Open "C:\deutsch.txt" for input as #no
  open "C:\englisch.txt" for input as #no2
End Sub
 
Private Sub Form_Unload()
  close no
  close no2
End Sub
 
Private Sub Command1_Click()
  Naechstes
End Sub

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.