设置填充握纯败方式为实心，裤姿更改填充色段颤。如：Private Sub Command1_Click()Shape1.FillStyle = 0Shape1.FillColor = vbYellowEnd Sub
