Ko Ma BSI

Private Sub Check1_Click()

If Check1.Value = 1 Then

Text4.Text = 15000

Check2.Value = 0

ElseIf Check1.Value = 0 Then

Check2.Value = 0

End If

End Sub

Private Sub Check2_Click()

If Check2.Value = 1 Then

Text4.Text = 10000

Check1.Value = 0

ElseIf Check2.Value = 0 Then

Check1.Value = 0

End If

End Sub

Private Sub Combo1_Click()

If Combo1.Text = "Dr.Boyke" Then

List1.Clear

List1.AddItem "A"

List1.AddItem "B"

List1.AddItem "C"

Else

List1.Clear

List1.AddItem "A"

List1.AddItem "B"

End If

End Sub

Private Sub List1_Click()

If List1.Text = "A" Then

Text2.Text = "Pemeriksaan"

Text3.Text = 50000

ElseIf List1.Text = "B" Then

Text2.Text = "Bedah Ringan"

Text3.Text = 1000000

ElseIf List1.Text = "C" Then

Text2.Text = "Operasi Besar"

Text3.Text = 3000000

End If

End Sub