• Home
 · 
• Miscellaneous
 · 
• An Age Calculator!!(May Not Work For Some People!!)

An Age Calculator!!(May Not Work For Some People!!)

An Age Calculator!!(May Not Work For Some People!!)

API Declarations


6x text boxes *NAMES* txt1,txt2 and so on
6x Labels *NAME* lbl1,lbl2 and so on



Rate An Age Calculator!!(May Not Work For Some People!!)

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

'Start code here-->
Private Sub cmd1_Click()
txt6.Text = "2003" - Int(txt1.Text) * "4" + Int(txt2.Text)
cmd1.Visible = False
lbl6.Visible = True
txt6.Visible = True
End Sub
Private Sub Form_Load()
MsgBox "This Machine Tells You When You Where Born", , "INTRO"
MsgBox "This Machine may not be spacific", , ":-)"
MsgBox "And Delete the writing inside boxes", , "OK"
lbl6.Visible = False
txt6.Visible = False
End Sub

Private Sub mnulookhow_Click()
frm2.Visible = True
End Sub