Private Sub CommandButton1_Click()
Image1.Picture = LoadPicture("D:\TECNOLOGIA.gif")
End Sub
 
Private Sub CommandButton2_Click()
UserForm2.Show