Private Sub btnTest_Click(ByVal sender As System.Object, ByVal e As _
             System.EventArgs) Handles btnTest.Click
  Dim Number As Integer

  Number = CInt(txtNumber.Text)
  txtResult.Text = "Parzysta"
  If Number Mod 2 = 1 Then
    txtResult.Text = "Nieparzysta"
  End If

End Sub
