Question

Private Sub Command1_Click() Form1.Hide Form2.Show End Sub Private Sub Form_Load() Form1.Move 0, 0,

这段代码的有没有人来解释下呢？
Private Sub Command1_Click()
Form1.Hide
Form2.Show
End Sub

Private Sub Form_Load()
Form1.Move 0, 0, Screen.Width, Screen.Height
wmp.Visible = False
wmp.URL = App.Path & "\200762861075605.mp3"
Dim snow#(1000, 2)
Dim i%, j%, k%, md%
Dim oldx#, oldy#
Form1.Show
DoEvents
Randomize
md = 500
For i = 1 To md
snow(i, 0) = Int(Rnd * Form1.Width)
snow(i, 1) = Int(Rnd * Form1.Height)
snow(i, 2) = 10 + Rnd * 20
Next i
Do While Not (DoEvents = 0)
For j = 1 To 10
For k = 1 To md
oldx = snow(k, 0): oldy = snow(k, 1)
snow(k, 1) = snow(k, 1) + snow(k, 2)
If snow(k, 1) > Form1.Height Then
snow(k, 1) = 0: snow(k, 2) = 5 + (Rnd * 30)
snow(k, 0) = Int(Rnd * Form1.Width)
oldx = 0: oldy = 0
End If
Coloury = 8 * (snow(k, 2) - 10): Coloury = 60 + Coloury
PSet (oldx, oldy), Form1.BackColor
PSet (snow(k, 0), snow(k, 1)), RGB(Coloury, Coloury, Coloury)
Next k
Next j
Loop
End Sub

Answer 1

初始化的时候画面显示成全屏，随机播放mp3的画面。