Muchas gracias, es justamente lo que necesitaba y funciona bien. He tenido que comentar la linea:
'Picture2.BorderStype = vbNone
Ya que si no lo hago me da un error. "Variable no definida", si la defino me da el error: "No se encontro el metodo o el miembro de datos"
Gracias nuevamente!