Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim g1 As Graphics Dim g2 As Graphics g1 = Me.CreateGraphics Dim imagepath As String imagepath = "d:\picture\" Dim backimage As Image backimage = New Bitmap(imagepath & "star.Gif") g1.DrawImage(backimage, 0, 0) Dim textureimage As Image = New Bitmap(imagepath & "star.jpg") Dim shadowbrush As Brush = New TextureBrush(textureimage) Dim texturebrush = New SolidBrush(Color.Black) Dim lineargradbrush As Brush Dim fntfont As Font fntfont = New Font("黑体", 20, FontStyle.Italic Or FontStyle.Underline) g1.DrawString("您好,GDI+!", fntfont, shadowbrush, 1, 31) g1.DrawString("您好,GDI+!", fntfont, texturebrush, 0, 30) Dim p As Pen = New Pen(Color.Red, 5) g1.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias g1.DrawEllipse(p, 0, 180, 150, 55) Dim graphicstate As Graphics Dim i As Integer For i = 1 To 10 Dim newpen As New Pen(Color.FromArgb(i * 25, Color.Red), 5) g1.DrawRectangle(newpen, 150 + i * 5, 130 + i * 5, 80, 80) Next fntfont.Dispose() shadowbrush.Dispose() texturebrush.GetType() backimage.Dispose() g1.Dispose() End Sub 运行怎么什么都没有啊?调试没有问题啊