VB中关于PNG图片问题

这段代码做出类似Photoshop的启动效果
可惜要占用大量内存.请高手对代码优化..真是搞不明白!!
或者给出其它类似效果的方法...
以下窗体,API声明省去了 因为太多了 呵呵
Dim mDC As Long
Dim mainBitmap As Long
Dim blendFunc32bpp As BLENDFUNCTION
Dim token As Long
Dim oldBitmap As Long

Private Sub Form_DblClick()

Unload Me

End Sub

Private Sub Form_Load()

Dim GpInput As GdiplusStartupInput
GpInput.GdiplusVersion = 1

If GdiplusStartup(token, GpInput) <> 0 Then
MsgBox "Fehler bem laden von GDI+!", vbCritical
Unload Me
End If

MakeTrans (App.Path & "\splash.png")

End Sub

Private Sub Form_Unload(Cancel As Integer)

Call GdiplusShutdown(token)
SelectObject mDC, oldBitmap
DeleteObject mainBitmap
DeleteObject oldBitmap
DeleteDC mDC

End Sub

Private Function MakeTrans(

关于在flash中导入PNG格式图片的问题 怎样在vb里显示png图片？ 关于vb中图片框 VB中图片的问题 VB中读取图片问题 关于VB图片添加问题 关于png格式的图片显示~ vista无法显示png图片的问题 png格式图片问题 高人进 关于VB中select 问题