Visual Studyo 2010'da aradım bulamadım

Public Class Form2
Private Sub Form2_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Me.Close()
Form1.TextBox4.Text = ListBox1.SelectedItem
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
Label2.Text = ListBox1.SelectedItem.ToString()
End Sub

Private Sub ListBox1_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
With ListBox1
.SelectedIndex = -1 '// -1 Index ='s No.Item.Selected.
Dim bulunanlar = From i In ListBox1.Items Where i.ToString().StartsWith(TextBox1.Text) Select i
If Not TextBox1.Text = "" Then
For Each itm As String In .Items '// loop thru items.
If itm.ToLower = TextBox1.Text.ToLower Then '// Case inSensitive search.
.SelectedItem = itm '// select item.
Exit For '// exit loop since item located.
End If
Next
Exit Sub '// just.because the next 2 lines are not worth reading.
End If
End With
End Sub
End Class

İstanbul=1
İzmir=2
Ankara=3

"KULLANCI_EKLE" "Ali" "Veli" "Listbox1" "Combobox1"

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim Yazdir As New IO.StreamWriter("C:\Documents and Settings\Admin\Desktop\Regen.txt")
Dim i As Integer
For i = 0 To ListBox1.Items.Count - 1
Yazdir.WriteLine(ListBox1.Items.Item(i))
Next
Yazdir.Close()
End Sub