VB6 Help Needed

[Bizzeh]

code:
Option Explicit



Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long



Public sFile As String



Private WithEvents PNG As cPNG





Private Sub Command1_Click()



CommonDialog1.Filter = "PNG|*.png"

CommonDialog1.ShowOpen

sFile = CommonDialog1.FileName



PNG.LoadPNGFile (sFile)

PNG.DrawToDC Picture1.hDC, 0, 0

Picture1.Refresh

End Sub





Private Sub Form_Load()

Set PNG = New cPNG



End Sub

how do i set and image box to show what has just been brought in to the picture box so i can get it to save???