Objeto: CmdAceptar Procedimiento: Click
nX = Thisform.TxtX.Value
nA = Int(Thisform.TxtX.Value)
X = nX - nA
nB = INT(1000 * X)
If nA > nB Then
nMay = nA
Else
nMay = nB
EndIf
Thisform.TxtMay.Value = nMay
Thisform.Refresh
De manera análoga ingresar el siguiente código para el control CmdLimpiar:
Objeto: CmdLimpiar Procedimiento: Click
Thisform.TxtX.Value = 0
Thisform.TxtMay.Value = 0
Thisform.TxtX.Setfocus
Thisform.Refresh
Finalmente proceder a ingresar el siguiente código para el control CmdSalir:
Objeto: CmdSalir Procedimiento: Click
Release Thisform
