简单摇骰子游戏

DimaAsIntegerOptionExplicitPrivateSubCommand1_Click()Command2.Enabled=FalseCommand3.Enabled=TrueCommand4.Enabled=FalseEndSubPrivateSubCommand2_Click()Command1.Enabled=FalseCommand3.Enabled=TrueCommand4.Enabled=FalseEndSubPrivateSubCommand3_Click()Command1.Enabled=FalseCommand2.Enabled=Fals