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

Imports System.IO
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles _
      Button2.Click
        OpenFileDialog1.InitialDirectory = "c:\"
        OpenFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        OpenFileDialog1.FilterIndex = 2
        OpenFileDialog1.RestoreDirectory = True
        OpenFileDialog1.ShowDialog()
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        Application.Exit()
    End Sub
End Class

Imports System
Imports System.IO
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles _
      Button2.Click
        Dim myStream As Stream = Nothing
        Dim openFileDialog1 As New OpenFileDialog()
        OpenFileDialog1.InitialDirectory = "c:\"
        OpenFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK _
          Then
            For Each line As String In File.ReadAllLines( _
            openFileDialog1.FileName)
                ListBox1.Items.Add(line)
            Next
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        Application.Exit()
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles _
      Button3.Click
        Dim myStream As Stream = Nothing
        Dim openFileDialog1 As New OpenFileDialog()
        openFileDialog1.InitialDirectory = "c:\"
        openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK _
          Then
            For Each line As String In File.ReadAllLines( _
            openFileDialog1.FileName)
                ListBox2.Items.Add(line)
            Next
        End If
    End Sub
End Class