vb时钟的应用实例源代码PrivateSubTimer1_Timer()Label1.Caption=Timei=(i+1)Mod6filename=App.Path&"\"&i&".gif"Image1.Picture=LoadPicture(filename)EndSub