Size window to image size

[Giddygoat]

If I load a picture in to a picture box which is in turn on a form, how can I resize the form to the size of the picture once the picture has loaded?

Cheers

John

 

[drs9222]

Try this...
[tt]
Dim ScalemodeBak As Integer

ScalemodeBak = ScaleMode
ScaleMode = vbTwips

Picture1.left = 0
Picture1.top = 0
Width = Picture1.Width
Height = Picture1.Height

ScaleMode = ScalemodeBak
[/tt]