[svenskajagare]

ecco ho messo questo codice:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        For i = 0 To TextBox1.Text.Length - 1
        Next
        If i = "a" Then
            ListBox1.Text = ListBox1.Text + "000000"
        End If
        If i = "b" Then
            ListBox1.Text = ListBox1.Text + "000001"
        End If

    End Sub

il programma non mi segnala errori però quando faccio partire il debug non mi esce il testo nella listbox. cosa ho sbagliato??