Sorteren: code

Private Sub cmdAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAdd.Click
ListBox1.Items.Add(TextBox1.Text)
TextBox1.Text = ""
End Sub

Private Sub cmdSort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSort.Click
ListBox1.Sorted = True
End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
If TextBox1.Text = "" Then
cmdAdd.Enabled = False
Else
cmdAdd.Enabled = True
End If
End Sub

[VB Web] - [hlrnet] - [copyright]