llRetVal = .T.
i = 0
lcWindName = WCHILD("",0) && The "" must be a NULL or empty string
* Loop through all open forms, and see if we have any that have the same
* name as the one you want to open. (It exists in INIT() but is not yet
DO WHILE !EMPTY(lcWindName)
IF lcWindName = UPPER(this.name)
i = i + 1
IF i > 1
llRetVal = .F.
lcWindName = WCHILD("",1) && The "" must be a NULL or empty string
MESSAGEBOX("Form Already Started")
???? Here I should set WindowState to 0 if this form was minimized???? How?
???? and I should Activate this form if not active???? How?
RETURN llRetVal && will return .F. preventing the form from re-running.
* continue loading the form as it is the first time.