急VB中使用GDI+绘制图像只能在form load事件中加载并绘制么？为何在按钮下操作没有响应

急！！！求助，VB中使用GDI+绘制图像只能在form load事件中加载并绘制么？为何在按钮下操作没有响应？
这是源代码，求助大神，谢谢指导

Option Explicit
Dim Bitmap As Long, bmW As Long, bmH As Long
Dim Graphics As Long
Dim Color() As Long
Dim i As Long, j As Long
Dim pen As Long

Private Sub Command1_Click()
    InitGDIPlus
    GdipCreateBitmapFromFile StrPtr(App.Path & "\Img1.jpg"), Bitmap
    GdipGetImageWidth Bitmap, bmW
    GdipGetImageHeight Bitmap, bmH
    GdipCreateFromHDC Form1.Picture1.hDC, Graphics
    GdipDrawImageRectI Graphics, Bitmap, 0, 30, bmW, bmH
    GdipCreatePen1 &HFFFF0000, 1, UnitPixel, pen
    GdipDrawLineI Graphics, pen, 10, 10, 30, 30
    Text1.Text = Graphics
    GdipDisposeImage Bitmap
    GdipDeleteGraphics Graphics
    TerminateGDIPlus
End Sub



------解决思路----------------------
最后边加一句 Form1.Picture1.refresh试试
------解决思路----------------------

Option Explicit

Dim Bitmap As Long, bmW As Long, bmH As Long

Dim Graphics As Long

Dim Color() As Long

Dim i As Long, j As Long

Dim pen As Long


Private Sub Command1_Click()

    InitGDIPlus


    Picture1.AutoRedraw = True

    Picture1.Cls


    GdipCreateBitmapFromFile StrPtr("c:" & "\Logo.jpg"), Bitmap

    GdipGetImageWidth Bitmap, bmW

    GdipGetImageHeight Bitmap, bmH

    GdipCreateFromHDC Form2.Picture1.hdc, Graphics

    GdipDrawImageRectI Graphics, Bitmap, 0, 30, bmW, bmH

    GdipDisposeImage Bitmap

    

    GdipCreatePen1 &HFFFF0000, 1, UnitPixel, pen

    GdipDrawLineI Graphics, pen, 10, 10, 30, 30

    GdipDeletePen pen

    'Text1.Text = Graphics

    GdipDeleteGraphics Graphics

    

    Picture1.Refresh

    Picture1.AutoRedraw = False


    TerminateGDIPlus

End Sub