VB 怎么实现对图片框的任意角度矩形裁剪

VB 如何实现对图片框的任意角度矩形裁剪？
如题所示。一般对图片框的裁剪都是规规矩矩的矩形裁剪，现在想将矩形裁剪框任意角度旋转后再行裁剪保存，能办到吗？如何才能办到？
------解决方案--------------------
给你个完整的，你自己研究研究吧

Option Explicit


Private Type xForm

  eM11 As Single

  eM12 As Single

  eM21 As Single

  eM22 As Single

  eDx As Single

  eDy As Single

End Type


Private Type RECT

  Left As Long

  Top As Long

  Right As Long

  Bottom As Long

End Type


Private Type BITMAPINFOHEADER '40 bytes

        biSize As Long

        biWidth As Long

        biHeight As Long

        biPlanes As Integer

        biBitCount As Integer

        biCompression As Long

        biSizeImage As Long

        biXPelsPerMeter As Long

        biYPelsPerMeter As Long

        biClrUsed As Long

        biClrImportant As Long

End Type

Private Type RGBQUAD

        rgbBlue As Byte

        rgbGreen As Byte

        rgbRed As Byte

        rgbReserved As Byte

End Type

Private Type BITMAPINFO

        bmiheader As BITMAPINFOHEADER

        bmiColors As RGBQUAD

End Type

Private Const BI_RGB = 0&

Private Const DIB_RGB_COLORS = 0

Private Type COORD

    x As Long

    y As Long

End Type

Private Type BITMAP

    bmType As Long

    bmWidth As Long

    bmHeight As Long

    bmWidthBytes As Long

    bmPlanes As Integer

    bmBitsPixel As Integer

    bmBits As Long

End Type



Private Type PointAPI

  x As Long

  y As Long

End Type


Private Const GM_ADVANCED As Long = &H2

Private Const COLOR_BTNSHADOW As Long = &H10

Private Const MWT_IDENTITY = 1

Private Const MWT_LEFTMULTIPLY = 2

Private Const MWT_RIGHTMULTIPLY = 3


Private Const BLACK_PEN As Long = &H7

Private Const PS_DOT As Long = &H2

Private Const PS_SOLID As Long = &H0

Private Const MM_LOENGLISH = 4