hvordan gør man sådan man kan ændre picture boxen i programmet?

Hvis din picturebox hedder Picture1, så copy-paste følgende kode, kør programmet og klik på pictureboxen

Private Sub Picture1_Click()
Dim intL As Integer
Dim intH As Integer
intL = InputBox("Hvor lang skal den være (fx. 1000)", , "1000")
intH = InputBox("Hvor høj skal den være (fx. 1200)", , "1200")
Picture1.Width = intL
Picture1.Height = intH

End Sub

tak