Sub Form_Load()

Obs! de 2 sista argumenten är option. Du kan fråga endast efter storlek.

GetBitmapInfo Picture1.Picture, width, height, colorPlanes, bitsPerPixel
MsgBox "Width = " & width & vbCrLf & _
"Height = " & height & vbCrLf & _
"Color Planes = " & colorPlanes & vbCrLf & _
"Bits per Pixel = " & bitsPerPixel

End Sub