像斑驳的墙面一样？
是要用笔刷工具吗？
谢谢各位大神了。。。。

做出来以后是完整的，然后你可以添加图层蒙版。用画笔涂。

Private Sub Command1_Click() '执行按钮 Select Case Combo1.ListIndex Case 0 '这里是选择第一项要执行的代码 Case 1 '这里是选择第二项要执行的代码 Case 2 '这里是选择第三项要执行的代码 End Select End Sub Private Sub Form_Load() Comma。

从这取痕迹