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
  Dim Result As Boolean    ' Tu jest nowa linia kodu!

  Result = CBool(5 And 4)      ' Ostatnia linia nowego kodu!

  Select Case WhichOne
    Case 1
      ' Pozostała część kodu procedury
