bDato as boolean
PUBLIC SUB Form_Open()
IF fonte_dati = vuota THEN
textbox1.aglinment = "Left"
bDato = TRUE
ELSE
textbox.aglinment = "Right"
bDato = FALSE
END IF
END
PUBLIC SUB TextBox1_keypress()
IF (key.code = key.enter OR key.code = key.return) THEN
IF bDato = TRUE THEN
textbox1.aglinment = "Right"
ELSE
textbox1.aglinment = "Left"
END IF
END IF
SUB