主题：添加图片

Dim pb As WinForm.PictureBox = e.Form.Controls("PictureBox1")

Dim tb As WinForm.TextBox = e.Form.Controls("TextBox1")

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.Filter= "jpg文件|*.jpg|png文件|*.png|ico文件|*.ico" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮

    tb.Text = dlg.FileName

pb.Image = getimage(tb.Text)

End If