He escrito este codigo y quisiera saber si se puede resumir aun mas, lo quiero hacer lo mas simple posible, alguna sugerencia?
Código:
Public Class Form1 Private Sub btnStart_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnStart.Click Dim i As Integer lbList.Items.Clear() For i = 1 To 6 lbList.Items.Add("Rad " & i) Next lblItemsTot.Text = lbList.Items.Count btnDeleteFromList.Enabled = True End Sub Private Sub btnNew_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnNew.Click If txtNewItem.Text <> "" Then lbList.Items.Add(txtNewItem.Text) btnDelNew.Enabled = True lblItemsTot.Text = lbList.Items.Count Else MsgBox("you need to write an item first!") End If End Sub Private Sub btnDeleteFromList_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDeleteFromList.Click If lbList.SelectedItem <> "" Then lbList.Items.RemoveAt(lbList.SelectedIndex) lblItemsTot.Text = lbList.Items.Count Else MsgBox("Select an item first.") End If End Sub Private Sub btnDelNew_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDelNew.Click If txtNewItem.Text <> "" Then lbList.Items.Remove(txtNewItem.Text) lblItemsTot.Text = lbList.Items.Count Else MsgBox("There are no new items to delete.") End If End Sub End Class