Tutorial Visual Basic 6 (VB6), Membuat Aplikasi (sederhana) Berat Badan Ideal / BMI

Langsung Saja,
Referensi BMI yang saya dapat seperti ini:
BMI, Berat Badan Ideal

Laki-Laki
Kurus > 17
Normal >= 17 <= 23
Gemuk 23 <= 27
Obesitas 27 <
Perempuan
Kurus > 18
Normal >= 18 <= 25
Gemuk 25 <= 27
Obesitas 27 <

Rumus
Berat Badan / (Tinggi Badan * Tinggi Badan)
NB: Berat badan -> Kg, Tinggi Badan -> Meter

Rumus VB/ Coding:
Form1 Menu
Private Sub Command1_Click()
Form2.Show
End Sub

Private Sub Command2_Click()
Form3.Show
End Sub

Private Sub Command3_Click()
End
End Sub

Form2 Laki-Laki
Private Sub Command1_Click()
Text4.Text = ((Text2.Text) / ((Text3.Text / 100) * (Text3.Text / 100)))
            If Text4.Text < 17 Then
                Text5.Text = Text1.Text + " Anda Kurus"
            ElseIf Text4.Text >= 17 And Text4.Text <= 23 Then
                Text5.Text = Text1.Text + " Anda Normal"
            ElseIf Text4.Text > 23 And Text4.Text <= 27 Then
                Text5.Text = Text1.Text + " Anda Kegemukan"
            ElseIf Text4.Text > 27 Then
                Text5.Text = Text1.Text + " Anda Obesitas"
            End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
Form1.Show
End Sub

Form3 Perempuan
Private Sub Command1_Click()
Text4.Text = ((Text2.Text) / ((Text3.Text / 100) * (Text3.Text / 100)))
            If Text4.Text < 18 Then
                Text5.Text = Text1.Text + " Anda Kurus"
            ElseIf Text4.Text >= 18 And Text4.Text <= 25 Then
                Text5.Text = Text1.Text + " Anda Normal"
            ElseIf Text4.Text > 25 And Text4.Text <= 27 Then
                Text5.Text = Text1.Text + " Anda Kegemukan"
            ElseIf Text4.Text > 27 Then
                Text5.Text = Text1.Text + " Anda Obesitas"
            End If
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
Form1.Show
End Sub

Video cara pembuatan bisa kalian lihat disini
https://www.youtube.com/watch?v=iIz7xWJSOKQ&feature=youtu.be