sintax3

Private Sub CommandButton1_Click()

Image1.PictureAlignment = 0
Image1.PictureTiling = True
End Sub

Private Sub CommandButton2_Click()
Image1.PictureAlignment = 0
Image1.PictureTiling = False
End Sub

Private Sub CommandButton3_Click()
Image1.PictureAlignment = 0
Image1.PictureTiling = False
Image1.PictureSizeMode = 1
End Sub

Private Sub CommandButton4_Click()
Image1.PictureAlignment = 0
Image1.PictureTiling = True
Image1.PictureSizeMode = 0
End Sub

Private Sub UserForm_Click()

End Sub

ritorna