VB画圆形或椭圆形的图片框 - VB / 基础类

一半我们的图片框都是矩形的，载入的图片也只能是矩形，我现在想把矩形编程圆形的或椭圆形，也就是说任意形状的图片框，使载入的图片显示为圆形，应该怎么编程序呢，谢谢帮忙解答

---

shape控件。选择类型为圆。

---

VB code:
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long


Private Sub Command1_Click()
Dim h As Long
Dim hCl As Long, hC As Long
h = Picture1.hWnd
hC = CreateEllipticRgn(40, 50, 200, 210)
If hC <> 0 Then
SetWindowRgn h, hC, True
End If
DeleteObject hC
End Sub

---

shape空间能加载图片吗