Håller på med ett enkelt bildvisningsprogram (trodde jag ja ;))

Programmet täcker hela skärmen och om bilden är större än skärmen så vill jag ändå få med hela på skärmen så jag la in detta i Picture1_Change:

<code>
If Picture1.Height > Me.Height Or Picture1.Width > Me.Width Then
Do Until Picture1.Height < Me.Width And Picture1.Width < Me.Width
Picture1.Height = Picture1.Height - 10
Picture1.Width = Picture1.Width - 10
Loop
End If
</code>

och det funkar ju bra men då visas ju int ehela bilden utanbara det som får plats inom de måtten.

Min fråga är hur man zoomar en bild (använder PictureBox)? Jag vill alltså att hela bilden ska få plats på skärmen även om den är stötte, fst zoomad då alltså.

Tack på förhand!

Använd istället en image kontroll som du sätter Strech = True. Kod för att resize'a:
<code>
Private Sub Form_Resize()
If Me.WindowState <> vbMinimized Then
Image1.Move Me.ScaleLeft, Me.ScaleTop, Me.ScaleWidth, Me.ScaleHeight
End If
End Sub
</code>

tackar tackar, har löst sig nu :)