我做好了,呵呵 Dim p As WinForm.Painter p = e.Form.CreateControl("Painter1", ControlTypeEnum.Painter) p.Left = 100 p.Top = 100 e.Form.AddControl(p) Dim g As Graphics = p.Graphics Dim fnt As New Font("宋体",12) g.DrawImage(getImage("broculo.png"),10,10) g.DrawImage(getImage("broculo.png"),30,30) g.DrawString("www.foxtable.com",fnt,Brushes.Blue,10,30) p.Repaint()