Help with resizing the PictureBox contorl if the Picture is too big.

I need to be able to have VB automatically make the picturebox go back to it's normal siz if the imported picture is too big. This is what I have so far
private Sub Picture1_Resize()
If Picture1.ScaleHeight > "33" Or Picture1.ScaleWidth > "41" then MsgBox "Too Big!", vbCritical
If Picture1.ScaleHeight > "33" Or Picture1.ScaleWidth > "41" then Picture1.ScaleHeight = (33) And Picture1.ScaleWidth = (41)
End Sub

can anyone help me? Thanks!