Public Sub Example11()
  
  Dim X, Y, W, H As Float
  Dim hBrush As PaintBrush
  Dim hImage As Image
  
  hImage = Image.Load(IMAGE_NAME)

  X = 16
  Y = 40
  W = 200
  H = 200
  
  hBrush = Paint.Image(hImage)
  hBrush.Translate(X, Y)
  hBrush.Scale(W / hImage.W, H / hImage.H)
  Paint.Brush = hBrush
  Paint.Rectangle(X, Y, W, H)
  Paint.Fill
  'Paint.DrawImage(hImage, X, Y, W, H)
  
  Paint.Brush = Paint.Color(Color.RGB(255, 127, 127, 153))
  Paint.Arc(X, Y, 10)
  Paint.Fill

End
