Private Sub CommandButton1_Click()
  j = 0
  For i = 1 To LBThems.ListCount
    If LBThems.Selected(i - 1) Then
      j = j + 1
    End If
  Next
  If j = 0 Then
    MsgBox "Щоб продовжити далі требі вибрати хоча б одну тему", , "Так не пійде"
    Exit Sub
  End If
  If Len(Trim(Thems.TextBox1.Value)) = 0 Then
    If MsgBox("Ви хочете тестуватись, але не ввели призвіще. Чи бажаєте повернутись та випривити становище?", vbYesNo, "Буде прикро, коли Ви не зможете підтвердити свої результати.") = vbYes Then
      Exit Sub
    End If
  End If
  For i = 1 To LBThems.ListCount
    Kpok.Test.Item(i).Selected = LBThems.Selected(i - 1)
  Next
  Thems.Hide
End Sub
Private Sub CommandButton2_Click()
  Thems.Hide
End Sub
Private Sub SetDrop()
  a = OptionButton2.Value
  TextBox1.Visible = a
  TextBox2.Visible = a
  TextBox3.Visible = a
End Sub
Private Sub CommandButton3_Click()
  For i = 1 To LBThems.ListCount
    LBThems.Selected(i - 1) = True
  Next
End Sub
Private Sub CommandButton4_Click()
  For i = 1 To LBThems.ListCount
    LBThems.Selected(i - 1) = False
  Next
End Sub
Private Sub CommandButton5_Click()
  For i = 1 To LBThems.ListCount
    LBThems.Selected(i - 1) = Not LBThems.Selected(i - 1)
  Next
End Sub
Private Sub Limited_Click()
  ScrollBar1.Enabled = Limited.Value
End Sub
Private Sub OptionButton1_Click()
  SetDrop
End Sub
Private Sub OptionButton2_Click()
  SetDrop
End Sub
Private Sub ScrollBar1_Change()
  TextBox4.Value = ScrollBar1.Value
End Sub