介绍一个VB小的有趣的程序代码答:'万花筒程序 '粘贴下面代码即可,不用添加任何控件 PrivateWithEventsTimer1AsTimer Dimr&,r1&,t&,a1!,a2!,xb!,yb!,s!,b PrivateSubForm_Load()Me.Width=4500:Me.Height=4500 Me.Move(Screen.Width-Me.Width)\2,(Screen.Height-Me.Height)\2 Me.AutoRedraw=True Me.Caption="CBM666的万花筒...