Visual Basic - Problema con Imagenes

Hola amigos!!

Necesito coger una imagen de un PictureBox y copiarla en el portapapeles.
El problema que tengo es que el picturebox lo cargo en ejecución y al intentar copiar en el portapapeles me dice que este está vacio.

Os mando parte de mi código

Picture1.PaintPicture LoadPicture(sPathImgs & rst.Fields(6)), 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight

Clipboard.SetData Picture1.picture, vbCFBitmap

La historia es que Picture1.picture está vacio en ejecucion.

Dadme una solucion por favor.
Gracias

Este procedimiento te devuelve el ancho y largo de una imagen y te carga el picture

Sub LoadImag(Path As String)
'*
Dim Imagen As IPictureDisp
Dim Alto As Integer
Dim Ancho As Integer
'*
On Error GoTo 1
'*
Set Imagen = LoadPicture(Path)
'*
Alto = Round(Me.ScaleY(Imagen.Height, vbHimetric, vbPixels))
'*
Ancho = Round(Me.ScaleX(Imagen.Width, vbHimetric, vbPixels))
'*
Picture1.Height = Alto
Picture1.ScaleHeight = Alto
Picture1.Width = Ancho
Picture1.ScaleWidth = Ancho
'*
Picture1.PaintPicture Imagen, 0, 0, Picture1.ScaleWidth, Picture1.ScaleHeight
'*
Exit Sub
1:
Call Error

PARA LLAMAR EL PROCEDIMIENTO ESTO DE QUI ABAJO
'*
Call LoadImag(Nombre) ' Nombre = al path o ruta donde se encuentra la imagen.