Nešlo by to úsměvné "i" nějak vynechat? :-)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
ListBox1.Items.Add("Položka " & (ListBox1.Items.Count+1))
Label1.Text = ListBox1.Items.Count
End Sub
|