用vb6写png图片显示

在VB6中，可以使用Picture控件来显示PNG图片。需要使用一个ActiveX控件来实现。

1. 将Microsoft Windows Common Controls 6.0控件添加到工具箱中。
2. 在Form中添加一个Picture控件。
3. 在Form Load事件中添加以下代码：

Private Sub Form_Load()
Picture1.Picture = LoadPicture("C:\test.png")
End Sub

这将从指定路径加载PNG图片并将其显示在Picture控件中。请确保路径和文件名正确。

如果您想要使用透明背景，则需要使用AlphaImageLoader属性。以下是示例代码：

Private Sub Form_Load()
Picture1.Picture = LoadPicture("C:\test.png")
Picture1.Picture = AlphaImageLoader(Picture1.Picture, 255, 255, 255)
End Sub

这将将白色视为透明背景，并将PNG图片显示在透明背景上。注意，必须使用AlphaImageLoader函数才能实现透明背景。

在VB6中显示PNG图片可能会出现一些问题，例如缩放和旋转图像可能会导致质量下降。如果您需要更高质量的PNG图片显示，您可以考虑使用其他工具或库，如GDI+库，来实现PNG图片显示。