Public Sub Example22()
  
  Paint.Background = Color.RGB(128, 128, 255)
  Paint.Rectangle(32, 32, 192, 192, 32)
  Paint.Fill(True)
  Paint.Background = Color.RGB(128, 0, 0, 128)
  Paint.LineWidth = 10
  Paint.Stroke
  
End