Example showing GINO drawing

MODULE Form1
  USE VisualClearWin
  TYPE(VCWdialog) dlg1
CONTAINS
INTEGER FUNCTION DoProcess()
  TYPE(VCWdrawing) g
  INTEGER hdc
  g = GetDrawing@(dlg1,"drawing_Panel1")
  hdc = GetHdc@(g)
  call gOpenGino()  
  call gMwinao(NUL,hdc)
  call gMoveTo2D(0.0, 0.0)
  call gDrawLineTo2D(10.0,10.0)
  call gDrawArcTo2D(20.0,20.0,40.0,40.0,0)
  call gDisplayStr("hello")
  call gFlushGraphics()
  call gDevsus()
  call gDevend()
  call ReleaseHdc@(g,hdc)
  call GetDrawingSize@(dlg1, "drawing_Panel1", iwidth, iheight)
  call InvalidateRectangle@(g, 0, 0, iwidth,iheight)
  DoProcess=0
END FUNCTION DoProcess
END MODULE Form1

PROGRAM Main
  USE Form1
  
  dlg1=CreateDialog@("csharpform.Form1")
  call OnClick@(dlg1,"button1",DoProcess)
  call DisplayDialog@(dlg1)                            
END