Event Form1.Button1.Click
    Dim 路径
    Rem a
    路径=Plugin.File.SelectFile()
    If 路径<>"" then
        If (LCase(Right(路径,4)) = ".jpg" or LCase(Right(路径,4)) = ".bmp" or LCase(Right(路径,4)) = ".gif") Then
            Form1.PictureBox1.Picture = 路径
        Else
            MsgBox "请选择（.jpg）、（.bmp）或（.gif）格式图片！！！"
            Goto a
        End If
    End If
End Event
Event Form1.Button2.Click
    Form1.PictureBox1.Picture =  "Attachment:\11.bmp" 
End Event



Event Form1.PictureBox1.Click
    MessageBox 1
End Event