VOLTAR RESULTADO DE SOMA

JOZEPHH 24/07/2014 19:17:30
#439840

Quebrei a cabeça aki e conseguir, obrigado a todos:


Private Sub Add_Click()
Text1.Text = Format(CCur(Text1 + 10), [Ô]Currency[Ô])
List1.AddItem Text1.Text, 0
End Sub

Private Sub Remover_Click()
If List1.ListCount = (1) Then
MsgBox [Ô]Valor Inicial[Ô]
Else
Text1.Text = List1.List(1)
List1.RemoveItem (0)
End If
End Sub