Ficha5-1

Private Sub cmd1_Click()
resultado.Caption = Val(oper1.Text) Mod 2

If resultado.Caption = 0 Then
resultado.Caption = "Par"
Else
resultado.Caption = "Impar"
End If

End Sub

Private Sub cmd2_Click()
End
End Sub