Ficha 16-2

Private Sub cmdadd_Click()

If txtitem = "" Then
txtitem = MsgBox("Introduza algum número !", vbOKOnly + vbExclamation, "Form1")
txtitem = ""
Else
lstlista.AddItem txtitem
End If

End Sub

Private Sub cmdlimpa_Click()

If txtitem = "" Then
txtitem = MsgBox("A caixa de texto está vazia .", vbOKOnly + vbInformation, "Form1")
txtitem = ""
Else
txtitem = ""
End If

End Sub

Private Sub cmdremove_Click()

Dim n As Integer

n = lstlista.ListCount

If n = 0 Then
n = MsgBox("Não tem números para apagar .", vbOKOnly + vbInformation, "Form1")
Else
lstlista.RemoveItem n - 1
End If

End Sub