劳烦那位高手帮忙翻译一段VB代码，谢谢！

。。。。。这个代码是个小游戏吧，看你的反应快慢，能否点中那个“彩块”，分为3个等级。
Dim N, S As Integer // 定义全局变量N，S 为整型
Private Sub 初级_Click() // 初级按钮的单击事件
Timer1.Interval = 1000 // 计时器1的时间间隔设为1秒
开始.Enabled = True // 开始按钮呈现为可用状态
End Sub
Private Sub 中级_Click()
Timer1.Interval = 800 // 计时器1的时间间隔设为800毫秒
开始.Enabled = True
End Sub
Private Sub 高级_Click()
Timer1.Interval = 700 // 计时器1的时间间隔设为700毫秒
开始.Enabled = True
End Sub
Private Sub 开始_Click()
N = 0: S = 0 // N和S分别赋值为0
Label1.Visible = True // 标签1可见
Label1.Caption = "" // 标签1显示内容为空
Text1.Text = 0 // 文本框1显示 0
彩块.Enabled = True: 彩块.Visible = True // 彩块可用、可见
彩块.Left = 2600: 彩块.Top = 2000 // 彩块 初始位置
彩块.Caption = 0 // 彩块 初始显示 0
开始.Enabled = False: 初级.Enabled = False
中级.Enabled = False: 高级.Enabled = False // 分别将4个按钮设置为不可用状态
Timer1.Enabled = True: Timer2.Enabled = True: Timer3.Enabled = True // 让3个计时器控件开始运行
End Sub
Private Sub Timer1_Timer()
Randomize
R = Int(Rnd * 256)
G = Int(Rnd * 256)
B = Int(Rnd * 256) // 随机取0~255的三个R、G、B 数
L = Int(Rnd * 4000) // 随机取0~3999的一个整数
T = Int(Rnd * 3000) // 随机取0~2999的一个整数
彩块.BackColor = RGB(R, G, B) // 用随机取到的三个RGB数来显示彩块 的背景色
彩块.Left = L // 用随机数L确定 彩块 的左边距
彩块.Top = T // 用随机数T确定 彩块 的上边距
S = S + 1 // 计时器1的周期事件中S都会+1
Label1.Caption = 30 - S // 标签1中显示距离游戏结束的“时间”
End Sub
Private Sub Timer2_Timer()
Timer1.Enabled = False: Timer3.Enabled = False // 计时器1和3设置为无效
彩块.Visible = False // 彩块 不可见
Label1.Visible = False // 标签1不可见
初级.Enabled = True: 中级.Enabled = True: 高级.Enabled = True // 将初级、中级和高级三个按钮设为可用状态
End Sub

Private Sub 彩块_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) // 彩块 的鼠标 单击事件
N = N + 1 // 每击中一次彩块 N加一次，累计击中的次数
Text1.Text = N // 文本框显示击中次数
彩块.Caption = N // 彩块 的标签内容也显示击中次数
End Sub
你给的代码不全吧，怎么没有Timer2的启动条件呢？也没有Timer3的，Timer3用来干什么的？这种代码你自己编写一次，仔细看一下应该问题不大的，简单。

翻译？？？
讲解吧，这玩意儿怎么翻译。

Dim N, S As Integer ' 这个还用说么 定义俩整形
Private Sub 初级_Click() ' 初级 的单击事件 . 不知道初级是什么, 当按钮吧
Timer1.Interval = 1000 'Timer1开始计时, 1000毫秒一次
开始.Enabled = True '开始 可以用了 不知道开始是什么 , 当按钮吧
End Sub
Private Sub 中级_Click() '不知道中级是什么, 当按钮
Timer1.Interval = 800 'Timer1 开始计时 800毫秒一次
开始.Enabled = True ' 开始 可以点了
End Sub
Private Sub 高级_Click()
Timer1.Interval = 700 'Timer1开始计时 700毫秒一次
开始.Enabled = True
End Sub
Private Sub 开始_Click()
N = 0: S = 0 '初始化 N S (不知道为啥这么写, 分两行多好)
Label1.Visible = True 'Label1 可见
Label1.Caption = "" '清空 Label1内容
Text1.Text = 0 '赋值 Text1.text = 0
彩块.Enabled = True: 彩块.Visible = True '彩块 这个控件 可见并可用
彩块.Left = 2600: 彩块.Top = 2000 ' 设置这个控件的位置
彩块.Caption = 0 '设置 标题是 "0" (彩块 这个是一个 Label么)
开始.Enabled = False: 初级.Enabled = False '这四个 都不能用了
中级.Enabled = False: 高级.Enabled = False
Timer1.Enabled = True: Timer2.Enabled = True: Timer3.Enabled = True '三个计时器都可以用
End Sub
Private Sub Timer1_Timer()
Randomize '准备取随机数
R = Int(Rnd * 256)
G = Int(Rnd * 256)
B = Int(Rnd * 256)
L = Int(Rnd * 4000)
T = Int(Rnd * 3000) '上面这些都是取随机数的 取出来的都是整数
彩块.BackColor = RGB(R, G, B) '设置 彩块 这个控件的背景颜色,根据随机数来设置
彩块.Left = L
彩块.Top = T '根据随机数 设置彩块 的位置
S = S + 1 'S 是计时的标量, 显示出来的 .
Label1.Caption = 30 - S ' 结合这个, 就是 Timer1没执行一次 Label1的内容就减一. 类似倒计时的
End Sub
Private Sub Timer2_Timer()
Timer1.Enabled = False: Timer3.Enabled = False ' Timer2执行的时候 1 和 3 都不能用了
彩块.Visible = False ' 彩块 也不能用了
Label1.Visible = False ' Label1的那个显示倒计时的也不能用了
初级.Enabled = True: 中级.Enabled = True: 高级.Enabled = True '三个按钮都能用了
End Sub

Private Sub 彩块_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ' 彩块的 鼠标按下事件
N = N + 1 'N+1
Text1.Text = N 'Text1的内容 = N
彩块.Caption = N '彩块的内容 = N
'--------- 具体的应该就是 计算你鼠标在 彩块这个控件上按下的次数
End Sub
'-- 你给的这段代码 不知道 Timer2的意义 . 它触发的间隔有多长啊 .

'-- 这个代码应该是 在规定时间内看你点了多少次 那个 彩块 . 对吧 .