Width of forms

I have a form w/c has a label used for displaying custom messages. How can I vary the width of this form (& label) in accordance to the length of the custom message? For instance, the width of the form w/ the message "Database updated!" is shorter than when the message "Computing Interest & Withholding Tax..." is shown. Thanks.

[Aaron Young]

Tryrivate Sub Form_Load()
Label1 = "CodeGuru is one of the best VB sites!!"
End Sub

private Sub Label1_Change()
Label1.AutoSize = true
Width = Label1.Width + (Label1.Left * 2) + (Width - ScaleWidth)
End Sub



Aaron Young
Analyst Programmer
[email protected]
[email protected]