Private Sub picViewer_Click()
  Me.ScaleMode = vbTwips
  picViewer.Move 0, 0
  picViewer.Stretch = False
  frmViewer.Width = CLng(Me.ScaleX(picViewer.Picture.Width, vbHimetric, _
    vbTwips)) + Me.Width - Me.ScaleWidth
  frmViewer.Height = CLng(Me.ScaleY(picViewer.Picture.Height, vbHimetric, _
  vbTwips)) + Me.Height - Me.ScaleHeight
End Sub

Gruss,

Zardoz