    Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As _
                 System.EventArgs) Handles btnCalc.Click
      Dim number As Long, BitCount As Integer

      If rbBits8.Checked = True Then    ' Wynik 8-bitowy?
        BitCount = 8
      Else
        If rbBits16.Checked = True Then ' A może 16-bitowy?
          BitCount = 16
        Else
          BitCount = 32                 ' Chyba jednak 32-bitowy.
        End If
      End If
      If txtNumber.Text <> "" Then ' Czy została wprowadzona liczba 
                                   '           dziesiętna?
        number = CLng(txtNumber.Text)
        txtResult.Text = ConvertToBinary(number, BitCount) 
                ' przekształć na binarną        
      Else
        If txtResult.Text <> "" Then ' a może jednak liczba binarna...
          txtNumber.Text = ConvertToDecimal(txtResult.Text) 
                    ' przekształć na dziesiętną
        End If
      End If

    End Sub
