Option Explicit
Dim points As Integer
Dim pass As Integer
Dim all As Integer

Private Sub Label1_Click()

End Sub

Private Sub Cmd_End_Click()

points = 0

If (Opt_Ravak.Value = False And Opt_Nasoy.Value = False And Opt_Garush.Value = False And Opt_Alman.Value = False) Then
    Dim shgiatStatus As String
    shgiatStatus = MsgBox("לא הוכנס מצב משפחתי", vbCritical, "שגיאה")
End If

If (Opt_Ad25.Value = False And Opt_Ben25Le45.Value = False And Opt_45Plus.Value = False) Then
Dim shgiatGil As String
    shgiatGil = MsgBox("לא הוכנס גיל", vbCritical, "שגיאה")

End If

If (Opt_Nasoy.Value = True) Then
points = points + 12
ElseIf (Opt_Alman.Value = True Or Opt_Garush.Value = True Or Opt_Ravak.Value = True) Then
points = points + 10
End If

If (Opt_Ad25.Value = True) Then
 points = points + 15

 ElseIf (Opt_Ben25Le45) Then
  points = points + 20

  Else
  points = points + 13

End If

If (Chk_Abroad.Value = True) Then points = points + 15

If (Chk_Aretz.Value = True) Then points = points + 10


If (Opt_Male.Value = True And points >= 30) Then
Lbl_passOrNot.Caption = "עבר"
pass = pass + 1
End If

If (Opt_Female.Value = True And points >= 30) Then
Lbl_passOrNot.Caption = "עברה"
pass = pass + 1
End If

all = all + 1

Opt_Ravak.Value = False
Opt_Nasoy.Value = False
Opt_Alman.Value = False
Opt_Garush.Value = False
Opt_Ad25.Value = False
Opt_Ben25Le45.Value = False
Opt_45Plus.Value = False
Chk_Aretz.Value = False
Chk_Abroad.Value = False
Opt_Male.Value = False
Opt_Female.Value = False
Dim name As String
name = InputBox("הכנס את שם המועמד", "מועמד חדש")
Txt_Moamad.Text = "המועמד: " + name


End Sub

Private Sub Form_Load()
Opt_Ravak.Value = False
Opt_Nasoy.Value = False
Opt_Alman.Value = False
Opt_Garush.Value = False
Opt_Ad25.Value = False
Opt_Ben25Le45.Value = False
Opt_45Plus.Value = False
Chk_Aretz.Value = False
Chk_Abroad.Value = False
Opt_Male.Value = False
Opt_Female.Value = False
Dim name As String
name = InputBox("הכנס את שם המועמד", "מועמד חדש")
Txt_Moamad.Text = "המועמד: " + name
pass = 0
all = 0
End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub