Program Kalkulator menggunakan Visual Basic 6

langsung aja gan screenshootnya,,

berikut listingnya..


Private Sub Command1_Click()
List1.AddItem (Text1.Text)
Text1.Text = Empty
Text1.SetFocus
End Sub

Private Sub Command2_Click()
    For i = 0 To List1.ListCount - 1
        a = a + Val(List1.List(i))
    Next i
Label1.Caption = Str(a)
End Sub

Private Sub Command3_Click()
On Error Resume Next
    If List1.Selected(List1.ListIndex) = True Then
    a = MsgBox("Hapus data yang dipilih ?", vbQuestion + vbYesNo, "Hapus ?")
    If a = vbYes Then
        List1.RemoveItem (List1.ListIndex)
    End If
    Else
    MsgBox "Ada belum memilih data yang ingin di hapus.", vbInformation, "Error"
    End If
End Sub

Private Sub mnuExt_Click()
End
End Sub

ini file .exe nya bisa kamu sedot,

download

oiyahh,, yg pengen dibikiin tinggal koment aja thanks..