CONVERSION DE LIBRAS A KILOGRAMOS

TextBox2.Text = TextBox1.Text * 0.453599

CONVERSION DE SUCRES A DOLARES

TextBox2.Text = TextBox1.Text / (25000)
para borrar
TextBox1.Text = ""
TextBox2.Text = ""

CONVERSION DE KILOMETROS A MILLAS y como borrar

TextBox2.Text = TextBox1.Text * 0.6214
para borrar
TextBox1.Text = ""
TextBox2.Text = ""

datos de un enpleado de su sueldo

IF CInt(TextBox1.Text) > 500 THEN
Message("CHEQUE SEMANAL")
ELSE
IF CInt(TextBox1.Text) <= 500 THEN
TextBox2.Text = Val(TextBox1.Text) * 0.25
Message(" BONO DEL 25% ")
END IF
END IF

datos de un producto conprado si es nacional o extranguero

DIM A AS Integer
DIM B AS String
A = TextBox4.Text
B = TextBox5.Text
IF TextBox4.Text < TextBox3.Text THEN
Message("REALIZAR ORDEN DE COMPRAS")
ELSE
Message("PERCHA LLENA")
ENDIF
IF TextBox5.Text = ("NACIONAL") THEN
Message("REALIZAR ORDEN DE COMPRAS")
ELSE
Message("PRODUCTO EXTRANJERO ")
ENDIF

calcular la raiz de un numero con el frame

TextBox3.Text = TextBox1.Text / TextBox2.Text
TextBox6.Text = (TextBox4.Text) ^ 2 * (TextBox5.Text) + (TextBox4.Text) ^ 3 * (TextBox5.Text) ^ 2 - (TextBox4.Text) ^ 4

inprimir del 50 al 60 y mostrar un mensaje si es dentro del rango

IF Val(TextBox1.text) >= 50 AND Val(TextBox1.text) <= 60 THEN
MESSAGE("DENTRO DEL RANGO")
ELSE
MESSAGE("FUERA DEL RANGO")
ENDIF