vb 实现图片的旋转

要求添加个按钮
功能： 点击让
Picture1里的图片顺时针旋转90度，请大家帮帮忙啊 救救急。

Dim tempPicture As IPictureDisp

Private Sub Command1_Click()
    Dim path As String
    path = "E:\project\TEMP\000.jpg" '图片不一定是JPG格式
'    Picture1.Picture = LoadPicture(path)
    Set tempPicture = LoadPicture(path)
    PictureToCenter tempPicture, Picture1

End Sub

Public Sub PictureToCenter(Pic As Picture, PicBox As PictureBox)
    Dim PicH    As Long, PicW As Long
    Dim PicBoxW  As Long, PicBoxH As Long
    Dim PicRate  As Single, PicBoxRate As Single
    Dim NewH    As Long, NewW As Long
   
    If Not Pic Is Nothing Then
        PicBoxH = PicBox.ScaleHeight
        PicBoxW = PicBox.ScaleWidth
        PicBoxRate = PicBoxW / PicBoxH
       
        PicW = PicBox.ScaleX(Pic.Width, vbHimetric, vbTwips)
        PicH = PicBox.ScaleY(Pic.Height, vbHimetric, vbTwips)
        PicRate = PicW / PicH
'        PicBox.Picture = Nothing
      &nbs