演示图:
设计过程:
代 码:
Private Sub Form_Timer() Randomize Image69.BorderColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Image69.BorderStyle = Rnd * 8 End Sub
附 件:
点击下载此示例学习