DEFINE class campo as textbox Height = 24 Left = 240 Top = 85 Width = 113 FontName = 'Arial' FontSize = 8 Height = 23 Name = "TxtCampo" PROCEDURE valid LPARAMETERS p1, p2 WAIT window "VAlid do campo ADDICIONADO" *---- Seu codigo ENDPROC ENDDEFINEBreno Lucas