Download | klik disini
Private Sub cmdlogout_Click()
Me.txtlama.Text = ""
Me.txttarif.Text = ""
Me.txttotal.Text = ""
End Sub
Private Sub cmdshutdown_Click()
MsgBox "Komputer akan Dimatikan "
Unload Me
End Sub
Private Sub cmdtotal_Click()
Me.txttotal.Text = Val(Me.txttarif.Text) * Val(Me.txtlama.Text)
End Sub
Posting Komentar