2001-10-25 20:29

     $TYPECHECK ON
     $OPTIMIZE ON

     DECLARE FUNCTION CreateEdit LIB "DLLcomp.dll" ALIAS "CreateEdit"(hInst AS LONG, hParent AS LONG) AS LONG

     DECLARE SUB Button1Click (Sender AS QBUTTON)
     DECLARE SUB onKey

     CREATE Form AS QFORM
      CAPTION = "Form1"
      Width = 450
      Height = 240
      Center
      CREATE Button1 AS QBUTTON
       CAPTION = "Button1"
       Left = 113
       Top = 154
       OnClick = Button1Click
      END CREATE
     END CREATE

'Insert your initialization code here

'showMessage str$(Application.Hinstance)
     DIM hDLL AS LONG
     hDLL = LIBRARYINST("DLLcomp.dll")
     DIM hEdit AS LONG
     hEdit = CreateEdit(Application.Hinstance, Form.handle)

     Form.SHOWMODAL

     UNLOADLIBRARY("DLLcomp.dll")
'--------- Subroutines ---------

     SUB Button1Click (Sender AS QBUTTON)
     END SUB

2001-10-25 20:29