Function PaintRect ( X As Integer, Y As Integer, Width As Integer, Height As Integer, Color As Integer ) As Image