Para ello, hay que usar apis:
Prueba este codigo:
Necesitas ser usuario para ver los enlaces
Crear Usuario Hacer SesionExplico:
Private Sub SetRegion()
'Free the memory allocated by the previous Region
If hRgn Then DeleteObject hRgn
'Scan the Bitmap and remove all transparent pixels from
'it, creating a new region
hRgn = GetBitmapRegion(Me.Picture, &HFFFFFF)
'Set the Forms new Region
SetWindowRgn Me.hwnd, hRgn, True
End Sub
El &HFFFFFF, es el color de la imagen que quieres que sea transparente.
ME es formulario actual, tendras que cambiarlo por el nombre del formulario.
Este codigo, pone transparente cogiendo la foto que este en el form.
ASi que tendras que poner la foto elegida dos veces, una en el form1.picture y otra en el picture1.picture (este sera el que se vea)
Saludos
Autor