flash (macromedia):

Here is a method using the Flash graphics API.

var textClip_mc:MovieClip = this.createEmptyMovieClip("textClip_mc",
this.getNextHighestDepth())
var theText_mc:MovieClip = this.createEmptyMovieClip("theText_mc",
this.getNextHighestDepth())
var borderColor:Number = 0x33333ff;
var borderSize:Number = 8;
var backgroundColor:Number = 0xcccccc;
var textWidth:Number = 200;
var gutter:Number = 4;
var theText_txt:TextField =
theText_mc.createTextField("theText_txt",theText_mc.getNextHighestDepth(),border
Size,borderSize,textWidth,0);

theText_txt.autoSize = true;
theText_txt.wordWrap = true;
theText_txt.multiline = true;
theText_txt.html = true;
theText_txt.htmlText = "Lorem ipsum dolor sit amet, consectetur adipisicing
elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut
enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip
ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate
velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat
cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est
laborum. "
trace(theText_mc._height)

textClip_mc.beginFill(borderColor);
textClip_mc.moveTo(0, 0);
textClip_mc.lineTo(textWidth + borderSize * 2 + gutter, 0);
textClip_mc.lineTo(textWidth + borderSize * 2 + gutter, theText_mc._height +
borderSize * 2 + gutter);
textClip_mc.lineTo(0, theText_mc._height + borderSize * 2 + gutter);
textClip_mc.lineTo(0, 0);
textClip_mc.endFill();


textClip_mc.beginFill(backgroundColor);
textClip_mc.moveTo(borderSize, borderSize);
textClip_mc.lineTo(textWidth + borderSize + gutter, borderSize);
textClip_mc.lineTo(textWidth + borderSize + gutter, theText_mc._height +
gutter + borderSize);
textClip_mc.lineTo(borderSize, theText_mc._height + gutter + borderSize);
textClip_mc.lineTo(borderSize, borderSize);
textClip_mc.endFill();