system.bas

[原创]非常耐玩的足球小游戏

Attribute VB_Name = "system"
'THIS MODULE ISN'T USED IN THE PROGRAM!!!!!(If you want to make the program smaller or improve the program you can public the Subs)
'When you do it, don't forget to add "form*." before the subject name
Private Sub yz()
If shotingpp >= 50 Then
Command2.Enabled = True
End If
If shotingpp >= 100 Then
Command1.Enabled = True
End If
If Bcpp >= 10 Then
Command4.Enabled = True
Command16.Enabled = True
End If
If Bcpp >= 20 Then
Command13.Enabled = True
End If
If Bcpp >= 30 Then
Command19.Enabled = True
End If
If Bcpp >= 40 Then
Command12.Enabled = True
End If
If Bcpp >= 50 Then
Command14.Enabled = True
End If
If Bcpp >= 60 Then
Command15.Enabled = True
End If
If Bcpp >= 70 Then
Command17.Enabled = True
End If
If Bcpp >= 80 Then
Command18.Enabled = True
End If
If Bcpp >= 90 Then
Command20.Enabled = True
End If
If passingpp >= 30 Then
Command25.Enabled = True
End If
If passingpp >= 40 Then
Command28.Enabled = True
End If
If passingpp >= 50 Then
Command26.Enabled = True
End If
If passingpp >= 60 Then
Command29.Enabled = True
End If
If headerpp >= 10 Then
Command8.Enabled = True
End If
If headerpp >= 20 Then
Command6.Enabled = True
End If
If headerpp >= 30 Then
Command5.Enabled = True
End If
If headerpp >= 40 Then
Command7.Enabled = True
End If
If headerpp >= 50 Then
Command11.Enabled = True
End If
If headerpp >= 100 Then
Command9.Enabled = True
End If
If headerpp >= 150 Then
Command10.Enabled = True
End If
If additionpp > 0 Then
    addheader.Enabled = True
    addfitness.Enabled = True
    addsturdiness.Enabled = True
    addpassing.Enabled = True
    addshoting.Enabled = True
    addballcontrol.Enabled = True
    Else
    addheader.Enabled = False
addfitness.Enabled = False
addsturdiness.Enabled = False
addpassing.Enabled = False
addshoting.Enabled = False
addballcontrol.Enabled = False
End If
End Sub