Private Sub Button2_Paint()Sub Button2_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Button2.Paint Dim MyGp As New System.Drawing.Drawing2D.GraphicsPath MyGp.AddEllipse(New Rectangle(-50, -50, 125, 125)) MyGp.AddEllipse(New Rectangle(55, 55, 20, 20)) ' MyGp.AddEllipse(New Rectangle(0, 0, 125, 125)) 'MyGp.AddEllipse(New Rectangle(0, 0, 125, 125)) Button2.BackColor = Color.Blue Button2.BackgroundImage = Image.FromFile("F:壁纸 _6289.jpg") MyGp.AddString("中华人民共和国", New FontFamily("宋体"), FontStyle.Regular, 15, New PointF(5, 40), StringFormat.GenericDefault) 'Button2.Size = New Size(256, 256) Button2.Region = New Region(MyGp) End Sub