With myDocument.Shapes.AddShape(Type:=msoShapeRectangle, _
        Top:=144, Left:=144, Width:=72, Height:=72)
    .Name = "Red Square"
    .Fill.ForeColor.RGB = RGB(255, 0, 0)
    .Line.DashStyle = msoLineDashDot
End With

##</code><code>##

print RGB(0,0,0)
 0 
print RGB(255,255,255)
 16777215 
print RGB(255,0,0)
 255 
print RGB(0,255,0)
 65280 
print RGB(0,0,255)
 16711680 

##</code><code>##

sub RGB {
  my ($red,$green,$blue) = @_;
  return $red + 256 * $green + 65536 * $blue;
}

print RGB(0,0,0) . "\n";
print RGB(255,255,255) . "\n";
print RGB(255,0,0) . "\n";
print RGB(0,255,0) . "\n";
print RGB(0,0,255) . "\n";

##</code><code>##

0
16777215
255
65280
16711680