Private Sub btn_SearchKfz_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btn_SearchKfz.Click
        Dim f2 As New Form2()
        Dim f1 As New Form1()
        f2.ShowDialog()
        Me.Close()
        f1.TextBox1.Text = f2.ListBox1.SelectedItem
        f1.Show()
End Sub