WORKING WITH INTRINSIC CONTROL (lear vb lesson 2)

WORKING WITH INTRINSIC CONTROL

requirments:-

* text box, label box, frame,command button 

 coding:

Private Sub Calendar1_Click ()

Text4.Text = Calendar1.Value

End Sub

Clear:

Private Sub Command1_Click ()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Check1.Visible = False

Check2.Visible = False

Option1.Value = False

Option2.Value = False

Option3.Value = False

End Sub

Exit:

Private Sub Command2_Click ()

End

End Sub

Status:

Private Sub Text5_Click()

If Text3.Text >= 70 And Text3.Text <= 100 Then

If Option1.Value = True Or Option2.Value = True Or Option3.Value = True Then

Text5.Text = "Admited"

Else

Text5.Text = "Not Admied"

End If

ElseIf Text3.Text >= 60 And Text3.Text < 75 Then

If Option2.Value = True Or Option3.Value = True Then

Text5.Text = "Admitted"

Else

Text5.Text = "Not Admitted"

End If

ElseIf Text3.Text >= 50 And Text3.Text < 60 Then

If Option3.Value = True Then

Text5.Text = "Admitted"

Else

Text5.Text = "Not Admited"

End If

ElseIf Text3.Text <= 50 Then

Text5.Text = "Not Admitted"

End If

End Sub

output