阳拳室 Private Sub Timer1 Timer() Label1.Left Label1.Left -100 NIVERSITY OF SCIENCE ANU If Label1.Left 0 Then Label1.Left Form1.Width End If End Sub Private Sub Timer2 Timer( Randomize Label1.ForeColor RGB(Rnd 255,Rnd 255,Rnd*255) Label3.ForeColor RGB(Rnd 255,Rnd 255,Rnd*255) End SubPrivate Sub Timer1_Timer() Label1.Left = Label1.Left - 100 If Label1.Left < 0 Then Label1.Left = Form1.Width End If End Sub Private Sub Timer2_Timer() Randomize Label1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Label3.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) End Sub