1、Private Declare Sub Sleep Lib kernel3 2(ByVai dwMilliseconds As Long)Private Sub Commandl_Click()Dim i As LongFor i=0 To 9Picturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPi
2、cturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.Fo
3、reColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)
4、Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(
5、20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,
6、Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPictur
7、el.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeCo
8、lor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Pict
9、urel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+
10、1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*
11、255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.F
12、ontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=
13、RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel
14、.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Pic
15、turel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,
16、Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontS
17、ize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(
18、Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.Pri
19、ntPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.Print”;Picturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Pictu
20、rel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintPicturel.FontSize=Int(20)+1Picturel.ForeColor=RGB(Rnd*255,Rnd*255,Rnd*255)Picturel.PrintNextEnd SubPrivate Sub Command2_Click()Picturel.CisEnd SubPrivate Sub Command3 _Click()SavePicture Picturel.Image,App.Path&我的图片.jpeg”End SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Form Load()Picturel.AutoRedraw=TruePicturel.AutoSize=TrueEnd SubPrivate Sub TimerITimer()Call Command1_C1ickSleep 1Call Command2_ClickSleep 1Call Command1_C1ickEnd Sub