Ko Ma BSI

Private Sub Combo4_Click()

If Combo4.Text = "D1" Then

Text4.Text = "Office"

ElseIf Combo4.Text = "D3" Then

Text4.Text = "Staff"

Else

Text4.Text = "Manager"

End If

End Sub

Private Sub Command2_Click()

x = MsgBox("Keluar Program?", vbInformation + vbOKCancel, "Result")

If x = vbOK Then

End

End If

End Sub

Private Sub Form_Load()

For i = 1 To 31

Combo1.AddItem i

Next

For i = 1 To 12

Combo2.AddItem i

Next

For i = 1970 To 2008

Combo3.AddItem i

Next

End Sub

Private Sub Option1_Click()

If Option1.Value = True Then

Text3.Text = "Produksi"

End If

End Sub

Private Sub Option2_Click()

If Option2.Value = True Then

Text3.Text = "SDM"

End If

End Sub

Private Sub Option3_Click()

If Option3.Value = True Then

Text3.Text = "Operasional"

End If

End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

If Text5.Text > 60 Then

MsgBox Text2.Text + " Diterima Bekerja!", vbOKOnly, "Result"

Text6.Text = "Lulus"

Else

MsgBox Text2.Text + " Gagal Bekerja!!", vbOKOnly, "Result"

End If

End If

End Sub