VFP application NOT vivsible

[harshadd]

See the below VFP 6.0 code, save this code as test.prg
Ctrate a project and add this code as program into the project.
Problem: why I am not able to see the form window when i run this code from VFP or after building an EXE out of that.?
Form is set as modless (WindowsType=0)
Formset is set as Modal (WindowsType=1)
Showindow = 2 for form
Application.vis ible=.f. is in forms init.
If application.vis ible = .t. then I see foxprow window. which i do not want.

Set proc to test
Public firsttime
Do firstRun
*do form regpivot
 
****************START CODE****************
Procedure firstRun
    Public oform1,dstnarry
    Use masters\dstnmast.dbf
    std_frmset=createobject('MyFormSet')
    std_frmset.visible=.t.
 
 
Endproc
****************FORM CODE****************
Define class MyformSet as formset Olepublic
    WindowType = 1
    Procedure init
    * step on
        oform1=Createobject('FORM1') 
        oform1.visible=.t.
        Read events
    Endproc
Enddefine
 
Define CLASS form1 AS FORM Olepublic
    visible=.t.
    Height = 445
    Width = 567
    MinWidth= 567
    MaxHeight=445
    MaxWidth=567
    minHeight=445
    maxbutton=.f.
    minbutton=.f.
    DoCreate = .T.
    AutoCenter = .T.
    BorderStyle = 1
    Caption = "Aviation Pivot 2008 configuration."
    MaxButton = .F.
    MinButton = .F.
    Name = "Form1"
    WindowState=0
    ShowWindows=2
    WindowType = 0
    PROCEDURE init
        application.visible=.f.
 
    ENDPROC
    procedure destroy
        application.visible=.t.
        thisform.release
    endproc
 
    Add OBJECT txtolbfile AS ComboBox WITH ;
        HEIGHT = 27, ;
        LEFT = 200, ;
        READONLY = .f., ;
        TABINDEX = 2, ;
        TOP = 6, ;
        WIDTH = 70, ;
        NAME = "txtOLBFILE", ;
        RowSourceType = 6, ;
        RowSource = "DSTN", ;
        CONTROLSOURCE = "DSTN"
 
    Add OBJECT label1 AS LABEL WITH ;
        AUTOSIZE = .T., ;
        CAPTION = "Please select your Origin EDP:", ;
        HEIGHT = 17, ;
        LEFT = 4, ;
        TOP = 11, ;
        WIDTH = 55, ;
        TABINDEX = 1, ;
        NAME = "Label1"
 
    Add OBJECT cmdsave AS COMMANDBUTTON WITH ;
        TOP = 411, ;
        LEFT = 394, ;
        HEIGHT = 27, ;
        WIDTH = 84, ;
        CAPTION = "\<Save", ;
        ENABLED = .T., ;
        TABINDEX = 6, ;
        NAME = "cmdSAVE"
 
    Add OBJECT cmdquit AS COMMANDBUTTON WITH ;
        TOP = 411, ;
        LEFT = 480, ;
        HEIGHT = 27, ;
        WIDTH = 84, ;
        CAPTION = "\<Quit", ;
        TABINDEX = 7, ;
        NAME = "cmdQUIT"
 
    Add OBJECT edtconstants AS EDITBOX WITH ;
        HEIGHT = 347, ;
        LEFT = 6, ;
        READONLY = .T., ;
        TABINDEX = 4, ;
        TOP = 52, ;
        WIDTH = 558, ;
        NAME = "edtConstants", ;
        FONTSIZE = 15
 
 
    Procedure cmdsave.CLICK
 
        Local loWSH
        loWSH = createobject("wscript.shell")
        If not regKeyExist("HKEY_CURRENT_CONFIG\Software\VFP\HNDmis\locname\")
 
            loWSH.RegWrite("HKEY_CURRENT_CONFIG\Software\VFP\HNDmis\locname\", allt(oform1.txtolbfile.value) , "REG_SZ")
            AvnKyVal=allt(oform1.txtolbfile.value)
            Save to avn.mem all like avn*
            Messagebox("Configuration saved...")
        Else
            *                Messagebox("Registry value allready EXISTs")
        Endif
 
 
    Endproc
 
 
    Procedure cmdquit.CLICK
        Thisform.RELEASE
        On error
        CLEAR EVENTS 
    Endproc
 
 
 
 
Enddefine
****************END CODE****************