ini salah satu caranya, mungkin yg lain bisa menambahkan

Private Sub Command1_Click()
txtHasil.Text=Replace(CStr(Val(Text1.Text)-Val(Text2.Text)),",", ".")
End Sub

Salam,
Agus Pradikta


Kirim email ke