Программа для тестирования знаний

             Dim Prov1 As Boolean
         Dim Prov2 As Boolean
         Dim Prov3 As Boolean
         Dim Prov4 As Boolean
        if Верно1 = 1 And checkbox1.Checked Then Prov1 = true
        if Верно2 = 2 And checkbox2.Checked Then Prov2 = true
        If Верно3 = 3 And checkbox3.Checked Then Prov3 = True
        If Верно4 = 4 And checkbox4.Checked Then Prov4 = True
        
 
        If Prov1 = True and Prov2 = True and Prov3 = True and Prov4 = True Then
            Кол=Кол+1
        Else
            Кол=Кол
            End If

resl = Split((data), "|")
       dgv.Rows.Add (resl(0))
       dgv.Rows.add (resl(1))
       dgv.Rows.Add (resl(2))

 dgv.Rows(1).Cells(2)= (resl(0))

Private Function Otvetpr() As String
        Dim Strpr As String = String.Empty
        For I As Integer = 1 To 9
            CType(GroupBox2.Controls("CheckBox" & I), CheckBox).Checked = Strings.Mid(Que(10), I, 1)
            Strpr = Strpr & CType(GroupBox2.Controls("CheckBox" & I), CheckBox).Text & " ; "
        Next
        Return Strpr
    End Function

Private Function Verno() As String
        Dim tmp as String = string.Empty
        For I As Integer = 1 To 4
                If  Strings.Mid(Que(5), I, 1) = "1" then
                    tmp = tmp & " " & Que(i)
                    end if
                    next
                return tmp
    End Function