Call tx6(b)

Case 7

Call tx7(b)

End Select

End Sub

'上述代码为定义一个SUB过程，此SUB过程主要用于选择加载的图形（图形共7种）。

Private Sub cmdstart_Click()           '开始按钮

Dim a, X, Y As Integer, b, c As String

b = Text1.Text                                               '登陆框的设置

c = Text2.Text

If Text1.Text = "" Then b = "匿名"

If Text2.Text = "" Then c = "这个家伙太懒了，什么也没写就按开始了"

Label7.Caption = b

Label6.Caption = Combo1.Text

Label5.Caption = c

Label5.Visible = True

Label6.Visible = True

Label7.Visible = True

Text1.Visible = False

Text2.Visible = False

Combo1.Visible = False

cmdstart.Enabled = False

cmdconfig.Enabled = False

Timer1.Interval = 1000 - 100 * Val(Label6.Caption)        '调整速度

Timer1.Enabled = True                '时间控件可用，方块开始下落

cmd1(i).Visible = True