picturebox控件加入图片后可以给图片加边线吗？

我用了.PaintPicture加载图片，想给图片周围加边线，用.Line可以画线，但如果加到图片的周围呢？
能实现这一需求吗？
请赐教。多谢！ Picture1.Appearance = 0
Picture1.BorderStyle = 1



Private Sub Command1_Click()

    Picture1.AutoRedraw = True

    Picture1.ScaleMode = 3

    Picture1.DrawWidth = 2

    Dim p As New StdPicture

    Set p = LoadPicture("f:\未命名4.gif")

    Picture1.Picture = p

    Picture1.Line (0, 0)-(ScaleX(p.Width, vbHimetric, vbPixels), ScaleY(p.Height, vbHimetric, vbPixels)), vbRed, B

End Sub

2楼的方法很好试过了学习了
Private Sub Picture1_click()
    Picture1.AutoRedraw = True
     Dim p As New StdPicture
    Set p = LoadPicture("……")
    Picture1.Picture = p
    Picture1.Line (0, 0)-(p.Width, p.Height), , B
End Sub
边框可以贴图，就是镜框。你看上了哪个镜框，贴上去。至于镜框嘛，可以到网上去找。镜框图片: http://image.baidu.com/i?tn=baiduimage&ct=201326592&lm=-1&cl=2&fr=ala0&word=%BE%B5%BF%F2%CD%BC%C6%AC
向高手学习了！

补充：VB ,  控件