Dim i As Integer‘定義i為整形變量
For i = 0 To 4’i從0 到 4 進行5次循環
If option1(i).Value Then‘如果選中了第i+1註（單選框第壹到第五註是option1（0） 到option1（4））
Exit For’如果滿足，退出for循環
End If‘結束判斷
Next’for循環的結束語句
base = i * 7‘上面利用壹個循環把妳選中的第幾註賦值給了i 此時把i*7賦值給變量base cmdStop.Enabled = True’把停職按鈕的可用性變為true 即讓停止按鈕可用
cmdStart.Enabled = False‘讓開始按鈕不可用
cmdAuto.Enabled = False‘讓自動按鈕不可用
cmdStop.SetFocus’讓停止按鈕獲得焦點（就是那壹圈圍著按鈕的特別細的虛線）
start = True’令變量start的邏輯屬性為真
Do While start‘這是壹個do loop循環 如果start為真就壹直循環
Randomize Timer’讓隨機數每次都不壹樣，
i = Rnd() * 6‘讓i取1到6的隨機數
lblNum(i + base).Caption = Trim(Str(Int(Rnd() * IIf(i = 6, 5, 10))))
'這裏lblNum(i + base).Caption 指的是第幾個幸運號碼框，base是之前判定了的妳選的第幾註乘以了6（每行6個），也就是從第幾行開始，i是隨機的，後面的代碼trim是去掉兩邊的空格，str是把內容改為字符串格式，int是取整，後面那個沒看太懂，個人覺得這塊有錯，
DoEvents‘轉讓控制權，以便讓操作系統處理其它的事件
If auto Then’如果auto為真（就是點了自動按鈕）
If Timer - sTime > sDiff Then‘這缺少相應的在通用聲明區的定義語句，看不太懂
Exit Do’跳出do loop循環
End If‘結束判斷
End If’結束判斷
Loop
End Sub
Private Sub cmdStop_Click()’停止按鈕的單擊事件
cmdStop.Enabled = False‘停止按鈕不可用
i = 0’讓i=0
Do While True‘do loop循環，這個循環判定條件壹直是真，通過內部的結束循環語句來結束循環
lblNum(i + base).Caption = Trim(Str(Int(Rnd() * IIf(i = 6, 5, 10))))’同之前的
i = i + 1‘i從0開始依次累加
If i = 7 Then
Exit Do’如果i=7 結束循環
End If
p = Rnd / 5‘在0 到0.2中隨機取值
N = Timer’n為系統計時器數值
Do While Timer - N < p‘
Randomize Timer
r = Rnd() * (6 - i) + i’讓r在i到6-i間隨機取值
lblNum(r + base).Caption = Trim(Str(Int(Rnd() * IIf(r = 6, 5, 10))))
DoEvents‘轉讓控制權，以便讓操作系統處理其它的事件
Loop
Loop
start = False‘start屬性變為false
cmdStart.Enabled = True’開始按鈕可用
cmdAuto.Enabled = True‘自動按鈕可用
cmdStart.SetFocus‘開始按鈕得到焦點
End Sub
Private Sub Form_Load()’窗體加載事件
cmdStop.Enabled = False‘停止按鈕不可用
For i = 0 To 34
lblNum(i).Caption = ""
Next’把34個數值全清空
End Sub
Private Sub lblNum_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)‘lblNum的鼠標按下事件
Dim r As Integer
If (Not start) And (Not auto) Then’如果沒開始，沒點自動
r = Index Mod 7‘index意思是第幾個，從0開始，比如第壹行的第二個index就是1，第二行的第壹個index就是7. mod 7 就是對7 取余取出來的數值表示他是這壹行的第幾個。
manu = True’令menu為真
Do While manu
lblNum(Index) = Trim(Str(Int(Rnd() * IIf(r = 6, 5, 10))))
DoEvents‘轉讓控制權，以便讓操作系統處理其它的事件
Loop
End If
End Sub
Private Sub lblNum_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
manu = False‘鼠標松開時，menu為假，停止上面鼠標按下事件當中的循環。
End Sub
就這些了，望采納