.- Capturar los datos más importantes de un producto cualesquiera, incluyendo cantidad, precio, etc. , desplegar una orden de compra, solo si el producto es de origen nacional, en caso contrario no hacer nada

PUBLIC SUB Button1_Click()
IF TextBox4.Text < TextBox3.Text THEN Message("PERCHA LLENA") ELSE Message("REALIZAR ORDEN DE COMPRAS") END IF IF TextBox5.Text = "NACIONAL" OR IF TextBox5.Text = "ECUADOR" THEN Message("REALIZAR ORDEN DE COMPRAS") ELSE Message("PRODUCTO EXTRANJERO") END IF END PUBLIC SUB Button2_Click() Textbox1.text = "" Textbox2.text = "" TextBox3.text = "" Textbox4.text = "" TextBox5.text = "" 
END