Option Explicit

Dim UI  : Set UI = SDB.UI

Sub OnStartUp()
    Dim mnuTest

    Set mnuTest = SDB.UI.AddMenuItem(SDB.UI.Menu_Edit, 0, 0)
    mnuTest.Caption = "Test script"
    mnuTest.OnClickFunc = "Test1"
    mnuTest.UseScript = Script.ScriptPath
End Sub



Function CreateEdt(Owner,X,Y,W,H,ControlName,Text,Enabled,OnChange,Hint)
  Set CreateEdt = UI.NewEdit(Owner)
  CreateEdt.Common.SetRect X,Y,W,H
  CreateEdt.Common.ControlName = ControlName
  CreateEdt.Common.Hint = Hint
  CreateEdt.Text = Text
  CreateEdt.Common.Enabled = Enabled
  If Not OnChange="" Then Script.RegisterEvent CreateEdt, "OnChange", OnChange
End Function


Sub Test1(Item) 
   Dim Form
   Set Form = UI.NewForm
   Form.Common.SetRect 0, 0, 500, 300
   Form.FormPosition = 4   ' Screen Center
   Form.BorderStyle = 3    ' Dialog 
   Form.Caption = "Test"
   Call CreateEdt  (Form, 10, 64,360,20,"EdtName","Text1",true,"OnChangeDefName","")
   Call CreateEdt  (Form, 100, 64,390,20,"EdtName2","Text2",true,"OnChangeDefName2","")
    
   Form.ActiveControl = "EdtName2"  
   Form.ShowModal
End Sub