怎样用VB制作一个和梦幻星空一样的程序

Dim red As Integer

Dim green As Integer

Dim blue As Integer

Private Sub Form_Click()

End

End Sub

Private Sub Timer1_Timer()

Dim x As Integer

Dim y As Integer

Dim i As Integer

Do Until i = 1000

i = i + 1

x = Rnd * ScaleWidth

y = Rnd * ScaleWidth

PSet (x, y), RGB(red, green, blue)

Loop

End Sub

Private Sub Timer2_Timer()

Form1.Cls

red = 255 * Rnd

green = 255 * Rnd

blue = 255 * Rnd

Timer1.Enabled = True

End Sub

dim a as integer

a=0

for i=200 to 300

if int(i/3)=i/薯旅3 and int(i/数衡凳拦岁7)=i/7 then

a=a+i

end if

next

msgbox a

---