vb颜色 渐变

b颜色 渐变



Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = RGB(Int(255 * Rnd+1), Int(255 * Rnd+1), Int(255 * Rnd+1))
End Sub

_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/