Breite eines Pic anpassen VB 5.0 ED

Hallo,

ich habe mir ein Steuerelement programmiert, wo ich animierte Gifs anzeigen kann. Soweit geht es ja. Ich habe eine Imagebox auf das Benutzerelment gesetzt und dann in dem ereigniss resize also

Private Sub UserControl_Resize()
On Error Resume Next
With Image1(0)
.Width = UserControl.Width
.Height = UserControl.Height
End With
End Sub

die breite des imagefeldes an die Form angepasst. die eigenschaft des images Stretch habe ich auf true gesetz, so das das image immer auf die groesse getrimmt wird. Nun möchte ich es aber so machen das wenn das angegebene Bild > ist, als das auf die form gezogene Steuerelement, sich das steuerelement automatisch vergrössert. Nur wie bekomme ich denn die breite des übergebenes Images heraus?
Für eure Bemuehungen ein Danke im voraus :smile:
LG Alex

Hi!

z.b. so:

image1.Picture.Height
das picture-object hat noch untereigenschaften

grüsse
thomas