Private Sub cmdconfig_Click()

Form2.Show

Form1.Hide

End Sub

'Form1为主窗口，form2（如图2）为设置左移，右移，变形，快速下降等按钮的窗口，Cmdconfig为“游戏设置”按钮

图2

Private Sub loadtx(X As Integer) '随机加载图形

Dim b As Integer

b = bhtx

Select Case X

Case 1

Call tx1(b)

Case 2

Call tx2(b)

Case 3

Call tx3(b)

Case 4

Call tx4(b)

Case 5

Call tx5(b)

Case 6