Dim Numero As Integer
Dim Residuo As Single

Private Sub Command1_Click()
Numero = txt1
Residuo = Numero Mod 2
If Residuo = 0 Then
lblresultado.Caption = "El numero es par"
Else
lblresultado.Caption = "El numero es impar"
End If
End Sub

Private Sub Option1_Click()
TxtNumero.Txt = ""
lblresultado.Caption = ""
End Sub

Private Sub Option2_Click()
End
End Sub