Private Sub Form_Load()
Text1.Text = "M30"
List1.AddItem ("Prog1067")
List1.AddItem ("Kopfzeile 1 ")
List1.AddItem ("Kopfzeile 2")
List1.AddItem ("Kopfzeile 3 ")
List1.AddItem ("Normaler Text Teil A Zeile 1 ")
List1.AddItem ("Normaler Text Teil A Zeile 2 ")
List1.AddItem ("Normaler Text Teil A Zeile 3")
List1.AddItem ("Normaler Text Teil A Zeile 4 ")
List1.AddItem ("M30 ")
List1.AddItem ("Normaler Text Teil B Zeile 1")
List1.AddItem ("Normaler Text Teil B Zeile 2 ")
List1.AddItem ("Normaler Text Teil B Zeile 3")
List1.AddItem ("Normaler Text Teil B Zeile 4")
List1.AddItem ("M30")
List2.AddItem ("Erstes Replacement")
List2.AddItem ("Zweites Replacement")
End Sub
Private Sub Command1_Click()
Dim Form As VB.Form
For Each Form In VB.Forms
Unload Form
Next
End Sub
 
Private Sub Command2_Click()
CommonDialog1.Filter = "Apps (*.txt)|*.txt|All files (*.*)|*.*"
CommonDialog1.DefaultExt = "txt"
CommonDialog1.DialogTitle = "Select File"
CommonDialog1.ShowOpen
Dim MyLine As String
Exit Sub
'Dein file path
Open "Path" For Input As #1
    Do While Not EOF(1)
        Line Input #1, MyLine
       List1.AddItem (MyLine)
    Loop
Close #1
End Sub
 
Private Sub Command3_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
List1.ListIndex = i
If Trim(CStr(List1.List(i))) = Trim(CStr(Text1.Text)) Then
Label1.Caption = i
Exit Sub
End If
Next i
End Sub
 
Private Sub List2_Click()
Dim ind As String
ind = List2.List(List2.ListIndex)
List1.List(8) = ind
End Sub