参考代码
Dim dlg As new OpenFileDialogIf dlg.ShowDialog = DialogResult.OK Then e.form.controls("PictureBox1").Image = getImage(dlg.FileName)End If