Hie. Here's another app, it's for checking your BMI, sometime it's hard to check for your BMI because you need to go to the clinic to check. But now NO MORE. You can check it at your home without going out! have fun with the app.

Things needed:
5 Labels
2 Text boxes
3 buttons

Here's the CODE:
Code:
Private Sub Command1_Click()
    Label4.Caption = BMI(Text1.Text, Text2.Text)
End Sub

Private Function BMI(height, weight)
      BMIValue = (weight) / (height ^ 2)
      BMI = Format(BMIValue, "0.00")
End Function

Private Sub Command2_Click()
End

End Sub

Private Sub Command3_Click()
Form_Load
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Label4.Caption = ""

End Sub
Here's the attributes:

VERSION 5.00
Begin VB.Form Form1
Caption = "BMI Calculator"
ClientHeight = 2970
ClientLeft = 3120
ClientTop = 2700
ClientWidth = 4755
LinkTopic = "Form1"
ScaleHeight = 2970
ScaleWidth = 4755

Begin VB.CommandButton Command3
Caption = "Reset"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1200
TabIndex = 8
Top = 2280
Width = 735
End

Begin VB.CommandButton Command2
BackColor = &H8000000A&
Caption = "end"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 240
TabIndex = 6
Top = 2280
Width = 855
End

Begin VB.CommandButton Command1
Caption = "Calculate"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2040
TabIndex = 2
Top = 2280
Width = 2295
End

Begin VB.TextBox Text2
Height = 375
Left = 2040
TabIndex = 1
Top = 840
Width = 2295
End

Begin VB.TextBox Text1
Height = 375
Left = 2040
TabIndex = 0
Top = 360
Width = 2295
End

Begin VB.Label Label4
BorderStyle = 1 'Fixed Single
Height = 375
Left = 2040
TabIndex = 9
Top = 1320
Width = 2295
End

Begin VB.Label Label5
Caption = "Obesity = BMI of 30 or greater"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 1320
TabIndex = 7
Top = 1800
Width = 2895
End

Begin VB.Label Label3
Caption = "Your BMI"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 960
TabIndex = 5
Top = 1440
Width = 855
End

Begin VB.Label Label2
Caption = "Your Weight (in Kg)"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 120
TabIndex = 4
Top = 960
Width = 1695
End

Begin VB.Label Label1
Caption = "Height (in Metre)"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 3
Top = 360
Width = 1455
End

End

Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False