Private Sub btnTest_Click(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) _
          Handles btnTest.Click
  ckbTrue.Checked = False   ' Rozpoczynamy od ustawienia wartości False 
  ckbFalse.Checked = False
  Select Case WhichOne
    Case 1
      txtExpression.Text = txtArgument1.Text & " = " & txtArgument2.Text
      If txtArgument1.Text = txtArgument2.Text Then ' A1 równa się A2
        ckbTrue.Checked = True
      Else
        ckbFalse.Checked = True
      End If
    Case 2
      txtExpression.Text = txtArgument1.Text & " <> " & txtArgument2.Text
      If txtArgument1.Text <> txtArgument2.Text Then 'A1 jest różny od A2
        ckbTrue.Checked = True
      Else
        ckbFalse.Checked = True
      End If
    Case 3
      txtExpression.Text = txtArgument1.Text & " > " & txtArgument2.Text
      If txtArgument1.Text > txtArgument2.Text Then 'A1 jest większy od A2
        ckbTrue.Checked = True
      Else
        ckbFalse.Checked = True
      End If
    Case 4
      txtExpression.Text = txtArgument1.Text & " < " & txtArgument2.Text
      If txtArgument1.Text < txtArgument2.Text Then 'A1 jest mniejszy 
                                                    'od A2
        ckbTrue.Checked = True
      Else
        ckbFalse.Checked = True
      End If
    Case 5
      txtExpression.Text = txtArgument1.Text & " >= " & txtArgument2.Text
      If txtArgument1.Text >= txtArgument2.Text Then 'A1 jest większy 
                                                     'lub równy A2
        ckbTrue.Checked = True
      Else
        ckbFalse.Checked = True
      End If
    Case 6
      txtExpression.Text = txtArgument1.Text & " <= " & txtArgument2.Text
      If txtArgument1.Text <= txtArgument2.Text Then 'A1 jest mniejszy
                                                     'lub równy A2
        ckbTrue.Checked = True
      Else
        ckbFalse.Checked = True
      End If
  End Select
End Sub
