Dim Bitmap As QBitmap

Declare Sub HelpShow(Sender as QForm)
Declare Sub CanvasPaint(Sender as QCanvas)
Create Help as QForm
      Caption = "Help"
      Top     = 141
      Left    = 225
      Width   = 663
      Height  = 410
      BorderStyle = bsDialog
      Center
End Create
Create Panel as QScrollBox
      Parent  = Help
      Top     = 0
      Left    = 0
      Width   = 469
      Height  = 433
      Color   = &HD8E9EC
      Align = alClient
      HorzTracking = 1
      VertTracking = 1
      VertIncrement = 12
End Create
Create Canvas as QCanvas
      Parent  = Panel
      Top     = 0
      Left    = 0
      Width   = 631
      Height  = 369
      Color   = &HD8E9EC
      Align = alNone
      OnPaint = CanvasPaint
      Font.Name = "MS Sans Serif"
      Font.Color = -2147483640
      Font.Size = 9
End Create

Sub CanvasPaint(Sender as QCanvas)
Defint i,h
Dim M As QMemoryStream

M.Position = 0
M.ExtractRes(Resource(1))

M.Position = 0
Bitmap.LoadFromStream(M)
Canvas.Height = Bitmap.Height
Canvas.Width  = Bitmap.Width
Canvas.FillRect(0,0,Canvas.Width,Canvas.Height,&HFFFFFF)
Canvas.Draw(0,0,Bitmap.BMP)
End Sub