Private Sub Command1_Click()
Image1.Picture = LoadPicture(Text1.Text)
End SubPrivate Sub Command2_Click()
Dim exi As String
exi = MsgBox("你真的想退出吗?", vbtesno + vbQuestion + vbDefaultButton1, "退出")
If exi = vbYes Then
End
End If
End Sub
Private Sub Dir1_Change()
    File1.Path = Dir1
    End Sub
Private Sub Drive1_Change()
    Dir1.Path = Drive1
    End Sub
Private Sub File1_Click()
    Text1.Text = File1.Path + "\" + File1
End Sub
Private Sub File1_DblClick()
    Image1.Picture = LoadPicture(File1.Path + "\" + File1)
End Sub
Private Sub Form_Load()
    Command1.Enabled = False
    File1.Pattern = "*.bmp;*.jpg;*.ico;*.cur"
    End Sub
Private Sub Text1_Change()
    Command1.Enabled = True
    End Sub
运行显示实时错误424