Membuat Program Menghitung Volume Kubus Menggunakan VB 6.0

Dim r As Double
Dim t As Double
Dim volume As Double
Dim area As Double
Const pi As Double = 3.14

Private Sub cmdKeluar_Click()
'MsgBox = vbYes " Anda Yakin Akan keluar?"
Unload Me
End Sub

Private Sub cmdProses_Click()

r = txtJari.Text
t = TxtTinggi.Text
luas = pi * r * r
txtLuas = luas
volume = luas * t
txtVolume = volume
End Sub

Private Sub cmdReset_Click()
txtJari.Text = ""
TxtTinggi.Text = ""
txtLuas.Text = ""
txtVolume.Text = ""

End Sub

Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()
lblTime.Caption = Time
End Sub