Как сделать так чтобы процедура выполнялась 1 раз?

[Algol]

Например:

Код: Выделить всё

Private Sub Command11_Click()
call Repa
text1.text = wdwefefe
text2.text =defefrtth
end Sub

Как сделать так чтобы Call вызвался только 1 раз , а потом нажимая на кнопку делались операторы после Call.

[Vitaly1]

Код: Выделить всё

Private f as boolean

Private Sub Command11_Click()
if f= false then
call Repa
f= true
end if
text1.text = wdwefefe
text2.text =defefrtth
end Sub

[Algol]

Thanks

[MEMBER]

Static лучче.
ИМХА.

[GSerg]

Поддерживаю. Читаемость++