请问 vb6 用gdi 怎么输出图片？

[ndscso]

Private Sub Form_Load()
Dim img As Long, textureBrush As Long
'载入图像
InitGDIPlus
GdipLoadImageFromFile StrPtr("C:\origin.bmp"), img

' InitGDIPlus
'初始化 Graphics
GdipCreateFromHDC Me.hDC, Graphics
'创建贴图刷子
GdipCreateTexture img, WrapModeTileFlipX, textureBrush

GdipTranslateTextureTransform textureBrush, 50, 80, MatrixOrderPrepend
'填充刷子
GdipFillRectangle Graphics, textureBrush, 0, 0, 484, 484 * 2
GdipCreateBitmapFromHBITMAP(然后就不懂了...................)
SaveImageToJPG Bitmap, "C:\1.bitmap"

我想把所有我用刷子刷出来的图形都输出到一个1.bitmap文件里面。。然后裁剪和缩放像素大小。

另外有没有好点的适合VB gdi+ 的实例教程？本人小白一个。

[ndscso]

难道没有人懂吗？大神快出现吧。。。。。。。。