vbRed="255"; vbBlue="16711680"; vbBlack="0"; vbWhite="16777215";
vbGreen="65280"; vbYellow="65535"; vbCyan="16776960"; vbMagenta="16711935";
vbCrLf="#chr(13)##chr(10)#";
Image.TextAngle = 90;
Image.AutoSize = false;
// rem **********************************************************************
// rem * Set various font parameters
// rem **********************************************************************
Image.FontColor = vbBlack;
Image.Bold = True;
Image.FontName = "Arial";
Image.FontSize = 12;
Image.PadSize = 5;
// rem **********************************************************************
// rem * Calculate the size of the text info is and set the image to this size
// rem * (this has to be done since we want to fill the area with a gradient)
// rem **********************************************************************
Image.MaxX = 225;
Image.MaxY = 100;
// rem **********************************************************************
// rem * Create a two-way gradient that starts with Blue and ends with White
// rem **********************************************************************
Image.GradientTwoWay(vbBlue, vbWhite, 1, 1);
// rem **********************************************************************
// rem * Print our text to the image
// rem **********************************************************************
Image.TextOut("Welcome to", 1, 95, false);
Image.FontColor = vbYellow;
Image.TextAngle = 0;
Image.Italic = False;
Image.FontSize = 14;
Image.TextOut("The Widget Factory", 30, 40, true);
// rem **********************************************************************
// rem * Set the filename and save
// rem * NOTE: You should gen the filename dynamically for multiuser usage
// rem **********************************************************************
Image.FileName = "#expandpath(".")#\msgrot.jpg"
Image.SaveImage();
// rem **********************************************************************
// rem * Write the ![]()
tag out for the browser to pick up
// rem **********************************************************************
WriteOutput("![]()
");
// rem **********************************************************************
// rem * These properties give eval/registration information for the component
// rem **********************************************************************
// rem WriteOutput("Expires: " & Image.Expires);
// rem WriteOutput("
Version: " & Image.Version);
// rem WriteOutput("
Registered To: " & Image.RegisteredTo);