' WINFBE FORM
' WINFBE VERSION 2.1.7
' LOCKCONTROLS=False
' SNAPLINES=True
' WINFBE FORM_START
' WINFBE CONTROL_START Form
'   PROPERTIES_START
'     PROP_NAME=Name
'     PROP_VALUE=Form1
'     PROP_NAME=Left
'     PROP_VALUE=10
'     PROP_NAME=Top
'     PROP_VALUE=10
'     PROP_NAME=Width
'     PROP_VALUE=500
'     PROP_NAME=Height
'     PROP_VALUE=300
'     PROP_NAME=ChildForm
'     PROP_VALUE=False
'     PROP_NAME=Text
'     PROP_VALUE=Form1
'     PROP_NAME=WindowState
'     PROP_VALUE=FormWindowState.Normal
'     PROP_NAME=StartPosition
'     PROP_VALUE=FormStartPosition.Manual
'     PROP_NAME=BorderStyle
'     PROP_VALUE=FormBorderStyle.Sizable
'     PROP_NAME=MinimizeBox
'     PROP_VALUE=True
'     PROP_NAME=MaximizeBox
'     PROP_VALUE=True
'     PROP_NAME=ControlBox
'     PROP_VALUE=True
'     PROP_NAME=Enabled
'     PROP_VALUE=True
'     PROP_NAME=Visible
'     PROP_VALUE=True
'     PROP_NAME=BackColor
'     PROP_VALUE=SYSTEM|Control
'     PROP_NAME=AcceptButton
'     PROP_VALUE=
'     PROP_NAME=AllowDrop
'     PROP_VALUE=False
'     PROP_NAME=KeyPreview
'     PROP_VALUE=False
'     PROP_NAME=CancelButton
'     PROP_VALUE=
'     PROP_NAME=Icon
'     PROP_VALUE=
'     PROP_NAME=Locked
'     PROP_VALUE=False
'     PROP_NAME=MaximumHeight
'     PROP_VALUE=0
'     PROP_NAME=MaximumWidth
'     PROP_VALUE=0
'     PROP_NAME=MinimumHeight
'     PROP_VALUE=0
'     PROP_NAME=MinimumWidth
'     PROP_VALUE=0
'     PROP_NAME=Tag
'     PROP_VALUE=
'   PROPERTIES_END
'   EVENTS_START
'     EVENT_NAME=KeyPress
'   EVENTS_END
' WINFBE CONTROL_END
' WINFBE CONTROL_START Label
'   PROPERTIES_START
'     PROP_NAME=Name
'     PROP_VALUE=Label1
'     PROP_NAME=Left
'     PROP_VALUE=143
'     PROP_NAME=Top
'     PROP_VALUE=16
'     PROP_NAME=Width
'     PROP_VALUE=321
'     PROP_NAME=Height
'     PROP_VALUE=22
'     PROP_NAME=Text
'     PROP_VALUE=
'     PROP_NAME=AllowDrop
'     PROP_VALUE=False
'     PROP_NAME=BackColor
'     PROP_VALUE=SYSTEM|Control
'     PROP_NAME=BackColorHot
'     PROP_VALUE=SYSTEM|Control
'     PROP_NAME=ForeColor
'     PROP_VALUE=SYSTEM|ControlText
'     PROP_NAME=ForeColorHot
'     PROP_VALUE=SYSTEM|ControlText
'     PROP_NAME=BorderStyle
'     PROP_VALUE=ControlBorderStyle.FixedSingle
'     PROP_NAME=TextAlign
'     PROP_VALUE=LabelAlignment.TopLeft
'     PROP_NAME=Font
'     PROP_VALUE=Arial,12,400,0,0,0,0
'     PROP_NAME=Enabled
'     PROP_VALUE=True
'     PROP_NAME=Tag
'     PROP_VALUE=
'     PROP_NAME=ToolTip
'     PROP_VALUE=
'     PROP_NAME=ToolTipBalloon
'     PROP_VALUE=False
'     PROP_NAME=Locked
'     PROP_VALUE=False
'     PROP_NAME=UseMnemonic
'     PROP_VALUE=True
'     PROP_NAME=Visible
'     PROP_VALUE=True
'   PROPERTIES_END
'   EVENTS_START
'   EVENTS_END
' WINFBE CONTROL_END
' WINFBE FORM_END
' WINFBE_CODEGEN_START
#if 0
Declare Function Form1_KeyPress( ByRef sender As wfxForm, ByRef e As EventArgs ) As LRESULT

type Form1Type extends wfxForm
    private:
        temp as byte
    public:
        declare static function FormInitializeComponent( byval pForm as Form1Type ptr ) as LRESULT
        declare constructor
        ' Controls
        Label1 As wfxLabel
end type


function Form1Type.FormInitializeComponent( byval pForm as Form1Type ptr ) as LRESULT
    dim as long nClientOffset

    pForm->Name = "Form1"
    pForm->Text = "Form1"
    pForm->SetBounds(10,10,500,300)
    pForm->OnKeyPress = @Form1_KeyPress
    pForm->Label1.Parent = pForm
    pForm->Label1.Name = "Label1"
    pForm->Label1.BorderStyle = ControlBorderStyle.FixedSingle
    pForm->Label1.Font = New wfxFont("Arial",12,FontStyles.Normal,FontCharset.Ansi)
    pForm->Label1.SetBounds(143,16-nClientOffset,321,22)
    pForm->Controls.Add(ControlType.Label, @(pForm->Label1))
    Application.Forms.Add(ControlType.Form, pForm)
    function = 0
end function

constructor Form1Type
    InitializeComponent = cast( any ptr, @FormInitializeComponent )
    this.FormInitializeComponent( @this )
end constructor

dim shared Form1 as Form1Type
#endif
' WINFBE_CODEGEN_END
' You should always include a resource file that references a valid manifest.xml
' file otherwise your application will not properly display Windows themed controls.
' Sample resource.rc and manifest.xml files can be found in the WinFBE \Settings folder.
' The following WinFBE directive includes the resource in your application. Simply
' uncomment the line.
' If you are using WinFBE's project management features then delete the following line
' because a resource file will be generated automatically.
'     '#RESOURCE "resource.rc"


''
''  Remove the following Application.Run code if it used elsewhere in your application.
Application.Run(Form1)


Public Sub zpr()
Form1.Label1.text = "You pressed the z key."
End Sub

Function Form1_KeyPress( ByRef sender As wfxForm, ByRef e As EventArgs ) As LRESULT
    Dim KeyAscii as integer    
    If KeyAscii = 122 Then 
    zpr
    end if
     
    Function = 0
End Function