Problem med ScaleX og vbPixels

Private Sub Form_Load()
Dim intWidth As Integer
Dim intHeight As Integer

  With Picture1
      intWidth = (.ScaleWidth \ Screen.TwipsPerPixelX)
      intHeight = (.ScaleHeight \ Screen.TwipsPerPixelY)
  End With
 
  MsgBox intWidth & "x" & intHeight
End Sub

Det virker heller ikke helt. Det oplyser mig, at bredden er 453.

Jeg har til gengæld lige fundet ud af, at dette virker...
ScaleX(Picture1.Picture.Width, 8, 3)

Men jeg er da nysgerrig for at vide, hvad "8" og "3" står for? Ved du det?

måske skal du bare sette PictureBox til Autosize

Picture1.AutoSize = True

Jeg skal finde størrelsen på billedet, ikke tilpasse pictureboxen eller formen, så det løser desværre ikke mit problem.

Men som sagt har jeg også fundet en løsning, men vil da gerne give point for en forklaring på hvad "3" og "8" er i vb-sprog.

det stå i hjælpen..

Settings

The settings for fromscale and toscale are:

Constant        Value    Description
vbUser            0    User-defined: indicates that the width or height of object is set to a custom value.
vbTwips            1    Twip (1440 twips per logical inch; 567 twips per logical centimeter).
vbPoints        2    Point (72 points per logical inch).
vbPixels        3    Pixel (smallest unit of monitor or printer resolution).
vbCharacters        4    Character (horizontal = 120 twips per unit; vertical = 240 twips per unit).
vbInches        5    Inch.
vbMillimeters        6    Millimeter.
vbCentimeters        7    Centimeter.
vbHimetric        8    HiMetric. If fromscale is omitted, HiMetric is assumed as the default.
vbContainerPosition    9    Determines control's position.
vbContainerSize        10    Determines control's size.

Tak for det! Smider du et svar, så du kan få point?

;)