코드:

다크? Me? as? Integer

Dark? p? as? Integer

Private?Sub?Command1_Click()

LA? =?TE?+? 메이저 여섯번째 음

End? Sub

Private?Sub?Command6_Click()

I? =?1

Timer1. enable? =? True

불규칙화 활성화

p?=?Int(29?-?21?-?1)? *?Rnd?+?21

선택? Case?P

Case?23

TE?=?1

Case?24

TE?=?2

Case?25

TE?=? Three

Case?26

TE?=? Four

Case?27

TE?=? 다섯

Case?28

TE?=? Six

Case?22

TE?=? 여덟

Case?21

TE?=? Seven

End? Pick

End? Sub

Private?Sub?Timer1 _Timer()

If? I? & lt?p? then

I? =? me? +?1

Select? Case? 나

Case?1

나. 명령2 . 배경색? =? & ampHFF & amp;

Me. Command3.BackColor?=? & ampHFFFF

Me. Command4 . BackgroundColour? =? & ampHFFFF

나. Command5 . 배경색? =? & ampHFFFFFF

나. Command7.BackColor? =? & ampHFFFFFF

나. Command8 . BackgroundColour? =? & ampHFFFFFF

나. Command9 . 배경색? =? & ampHFFFF

Me. Command10. 배경색? =? & ampHFFFF

Case? 다섯

나. Command2 . 배경색? =? & ampHFFFF

나. Command3.BackColor? =? & ampHFF & amp;

나. Command4 . BackgroundColour? =? & ampHFFFF

나. Command5 . 배경색? =? & ampHFFFFFF

나. Command7.BackColor? =? & ampHFFFFFF

나. Command8 . BackgroundColour? =? & ampHFFFFFF

나. Command9 . 배경색? =? & ampHFFFF

Me. Command10. 배경색? =? & ampHFFFF

Case? 일곱

나. Command2 . 배경색? =? & ampHFFFFFF

나. Command3.BackColor? =? & ampHFFFFFF

나. Command4 . BackgroundColour? =? & ampHFF & amp;

나. Command5 . 배경색? =? & ampHFFFFFF

나. Command7.BackColor? =? & ampHFFFF

나. Command8 . BackgroundColour? =? & ampHFFFFFF

나. Command9 . 배경색? =? & ampHFFFF

Me. Command10. 배경색? =? & ampHFFFF

Case? 여덟

나. Command2 . 배경색? =? & ampHFFFFFF

나. Command3.BackColor? =? & ampHFFFFFF

나. Command4 . BackgroundColour? =? & ampHFFFFFF

나. Command5 . 배경색? =? & ampHFF & amp;

Me. Command7.BackColor? =? & ampHFFFF

나. Command8 . BackgroundColour? =? & ampHFFFF

나. Command9 . 배경색? =? & ampHFFFF

Me. Command10. 배경색? =? & ampHFFFF

Case? 9

나. Command2 . 배경색? =? & ampHFFFFFF

나. Command3.BackColor? =? & ampHFFFFFF

나. Command4 . BackgroundColour? =? & ampHFFFFFF

나. Command5 . 배경색? =? & ampHFFFF

나. Command7.BackColor? =? & ampHFF & amp;

나. Command8 . BackgroundColour? =? & ampHFFFF

나. Command9 . 배경색? =? & ampHFFFF

Me. Command10. 배경색? =? & ampHFFFF

Case?10

나. Command2 . 배경색? =? & ampHFFFFFF

나. Command3.BackColor? =? & ampHFFFFFF

나. Command4 . BackgroundColour? =? & ampHFFFFFF

나. Command5 . 배경색? =? & ampHFFFFFF

나. Command7.BackColor? =? & ampHFFFFFF

나. Command8 . BackgroundColour? =? & ampHFF & amp;

나. Command9 . 배경색? =? & ampHFFFF

Me. Command10. 배경색? =? & ampHFFFF

Case?11

나. Command2 . 배경색? =? & ampHFFFFFF

나. Command3.BackColor? =? & ampHFFFFFF

나. Command4 . BackgroundColour? =? & ampHFFFFFF

나. Command5 . 배경색? =? & ampHFFFF

나. Command6 . 배경색? =? & ampHFFFFFF

나. Command7.BackColor? =? & ampHFFFFFF

나. Command8 . BackgroundColour? =? & ampHFFFFFF

나. Command9 . 배경색? =? & ampHFF & amp;

나. Command10. 배경색? =? & ampHFFFF

Case?12

나. Command2 . 배경색? =? & ampHFFFFFF

나. Command3.BackColor? =? & ampHFFFFFF

나. Command4 . BackgroundColour? =? & ampHFFFFFF

나. Command5 . 배경색? =? & ampHFFFFFF

나. Command7.BackColor? =? & ampHFFFFFF

나. Command8 . BackgroundColour? =? & ampHFFFFFF

나. Command9 . 배경색? =? & ampHFFFF

Me. Command10. 배경색? =? & ampHFF & amp;

Case?13

I. Command2 . 배경색? =? & ampHFF & amp;

나. Command3.BackColor? =? & ampHFFFF

나. Command4 . BackgroundColour? =? & ampHFFFF

나. Command5 . 배경색? =? & ampHFFFFFF

나. Command7.BackColor? =? & ampHFFFFFF

나. Command8 . BackgroundColour? =? & ampHFFFFFF

나. Command9 . 배경색? =? & ampHFFFF

Me. Command10. 배경색? =? & ampHFFFF

Case?14

나. Command2 . 배경색? =? & ampHFFFF

나. Command3.BackColor? =? & ampHFF & amp;

Me. Command4 . BackgroundColour? =? & ampHFFFF

나. Command5 . 배경색? =? & ampHFFFFFF

나. Command7.BackColor? =? & ampHFFFFFF

나. Command8 . BackgroundColour? =? & ampHFFFFFF

나. Command9 . 배경색? =? & ampHFFFF

Me. Command10. 배경색? =? & ampHFFFF

Case?15

나. Command2 . 배경색? =? & ampHFFFFFF

나. Command3.BackColor? =? & ampHFFFFFF

나. Command4 . BackgroundColour? =? & ampHFF & amp;

나. Command5 . 배경색? =? & ampHFFFFFF

나. Command7.BackColor? =? & ampHFFFF

나. Command8 . BackgroundColour? =? & ampHFFFFFF

나. Command9 . 배경색? =? & ampHFFFF

Me. Command10. 배경색? =? & ampHFFFF

Case?16

나. Command2 . 배경색? =? & ampHFFFFFF

나. Command3.BackColor? =? & ampHFFFFFF

나. Command4 . BackgroundColour? =? & ampHFFFFFF

나. Command5 . 배경색? =? & ampHFF & amp;

Me. Command7.BackColor? =? & ampHFFFF

나. Command8 . BackgroundColour? =? & ampHFFFF

나. Command9 . 배경색? =? & ampHFFFF

Me. Command10. 배경색? =? & ampHFFFF

Case?17

나. Command2 . 배경색? =? & ampHFFFFFF

나. Command3.BackColor? =? & ampHFFFFFF

나. Command4 . BackgroundColour? =? & ampHFFFFFF

나. Command5 . 배경색? =? & ampHFFFF

나. Command7.BackColor? =? & ampHFF & amp;

나. Command8 . BackgroundColour? =? & ampHFFFF

나. Command9 . 배경색? =? & ampHFFFF

Me. Command10. 배경색? =? & ampHFFFF

Case?18

나. Command2 . 배경색? =? & ampHFFFFFF

나. Command3.BackColor? =? & ampHFFFFFF

나. Command4 . BackgroundColour? =? & ampHFFFFFF

나. Command5 . 배경색? =? & ampHFFFFFF

나. Command7.BackColor? =? & ampHFFFFFF

나. Command8 . BackgroundColour? =? & ampHFF & amp;

나. Command9 . 배경색? =? & ampHFFFF

Me. Command10. 배경색? =? & ampHFFFF

Case?19

나. Command2 . 배경색? =? & ampHFFFFFF

나. Command3.BackColor? =? & ampHFFFFFF

나. Command4 . BackgroundColour? =? & ampHFFFFFF

나. Command5 . 배경색? =? & ampHFFFFFF

나. Command7.BackColor? =? & ampHFFFFFF

나. Command8 . BackgroundColour? =? & ampHFFFFFF

나. Command9 . 배경색? =? & ampHFF & amp;

나. Command10. 배경색? =? & ampHFFFF

Case?20

나. Command2 . 배경색? =? & ampHFFFFFF

나. Command3.BackColor? =? & ampHFFFFFF

나. Command4 . BackgroundColour? =? & ampHFFFFFF

나. Command5 . 배경색? =? & ampHFFFFFF

나. Command7.BackColor? =? & ampHFFFFFF

나. Command8 . BackgroundColour? =? & ampHFFFFFF

나. Command9 . 배경색? =? & ampHFFFF

Me. Command10. 배경색? =? & ampHFF & amp;

Case?21

나. Command2 . 배경색? =? & ampHFF & amp;

Me. Command3.BackColor? =? & ampHFFFF

Me. Command4 . BackgroundColour? =? & ampHFFFF

나. Command5 . 배경색? =? & ampHFFFF

나. Command6 . 배경색? =? & ampHFFFFFF

나. Command7.BackColor? =? & ampHFFFFFF

나. Command8 . BackgroundColour? =? & ampHFFFFFF

나. Command9 . 배경색? =? & ampHFFFF

Me. Command10. 배경색? =? & ampHFFFF

Case?22

나. Command2 . 배경색? =? & ampHFFFF

나. Command3.BackColor? =? & ampHFF & amp;

Me. Command4 . BackgroundColour? =? & ampHFFFF

나. Command5 . 배경색? =? & ampHFFFFFF

나. Command7.BackColor? =? & ampHFFFFFF

나. Command8 . BackgroundColour? =? & ampHFFFFFF

나. Command9 . 배경색? =? & ampHFFFF

Me. Command10. 배경색? =? & ampHFFFF

Case?23

나. Command2 . 배경색? =? & ampHFFFFFF

나. Command3.BackColor? =? & ampHFFFFFF

나. Command4 . BackgroundColour? =? & ampHFF & amp;

나. Command5 . 배경색? =? & ampHFFFFFF

나. Command7.BackColor? =? & ampHFFFF

나. Command8 . BackgroundColour? =? & ampHFFFFFF

나. Command9 . 배경색? =? & ampHFFFF

Me. Command10. 배경색? =? & ampHFFFF

Case?24

나. Command2 . 배경색? =? & ampHFFFFFF

나. Command3.BackColor? =? & ampHFFFFFF

나. Command4 . BackgroundColour? =? & ampHFFFFFF

나. Command5 . 배경색? =? & ampHFF & amp;

Me. Command7.BackColor? =? & ampHFFFF

나. Command8 . BackgroundColour? =? & ampHFFFF

나. Command9 . 배경색? =? & ampHFFFF

Me. Command10. 배경색? =? & ampHFFFF

Case?25

나. Command2 . 배경색? =? & ampHFFFFFF

나. Command3.BackColor? =? & ampHFFFFFF

나. Command4 . BackgroundColour? =? & ampHFFFFFF

나. Command5 . 배경색? =? & ampHFFFF

나. Command7.BackColor? =? & ampHFF & amp;

나. Command8 . BackgroundColour? =? & ampHFFFF

나. Command9 . 배경색? =? & ampHFFFF

Me. Command10. 배경색? =? & ampHFFFF

Case? 26

나. Command2 . 배경색? =? & ampHFFFFFF

나. Command3.BackColor? =? & ampHFFFFFF

나. Command4 . BackgroundColour? =? & ampHFFFFFF

나. Command5 . 배경색? =? & ampHFFFFFF

나. Command7.BackColor? =? & ampHFFFFFF

나. Command8 . BackgroundColour? =? & ampHFF & amp;

나. Command9 . 배경색? =? & ampHFFFF

Me. Command10. 배경색? =? & ampHFFFF

Case? 27

나. Command2 . 배경색? =? & ampHFFFFFF

나. Command3.BackColor? =? & ampHFFFFFF

나. Command4 . BackgroundColour? =? & ampHFFFFFF

나. Command5 . 배경색? =? & ampHFFFFFF

나. Command7.BackColor? =? & ampHFFFFFF

나. Command8 . BackgroundColour? =? & ampHFFFFFF

나. Command9 . 배경색? =? & ampHFF & amp;

나. Command10. 배경색? =? & ampHFFFF

Case?28

나. Command2 . 배경색? =? & ampHFFFFFF

나. Command3.BackColor? =? & ampHFFFFFF

나. Command4 . BackgroundColour? =? & ampHFFFFFF

나. Command5 . 배경색? =? & ampHFFFF

나. Command6 . 배경색? =? & ampHFFFFFF

나. Command7.BackColor? =? & ampHFFFFFF

나. Command8 . BackgroundColour? =? & ampHFFFFFF

나. Command9 . 배경색? =? & ampHFFFF

Me. Command10. 배경색? =? & ampHFF & amp;

End? 선택

다크? PP? as? 정수

PP? =?Int(19?-?1?-?1)? *?Rnd?+?11

Text1?=? Parcel Post (소포 우편)

End? If

End? Submarine