Dim cb As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim pbx As WinForm.PictureBox = e.Form.Controls("PictureBox1")
Dim dr As DataRow = DataTables("管理者").find("人名 = '" & cb.text & "'") If dr IsNot Nothing Then pbx.Image = GetImage(dr("照片")) ’pbx.ImageLayout = ImageLayout.Zoom