forms("提醒窗口").Controls("PictureBox2").Visible = True Dim pbx As WinForm.PictureBox pbx = Forms("提醒窗口").Controls("PictureBox2") pbx.Image = GetImage(ProjectPath & "\Images\登录图片\眼睛科技感静.jpg") Forms("提醒窗口").Controls("PictureBox2").Dock = System.Windows.Forms.DockStyle.Fill End If