Private Sub Command1_Click()
l1.Caption = Int(Rnd * 10)
l2.Caption = Int(Rnd * 10)
l3.Caption = Int(Rnd * 10)
l4.Caption = ""
If l1.Caption = "6" Then
    l4.Caption = "恭喜您中奖了！"
End If
If l2.Caption = "6" Then
    l4.Caption = "恭喜您中奖了！"
End If
If l3.Caption = "6" Then
   l4.Caption = "恭喜您中奖了！"
End If
End Sub
Private Sub i3_Click()
End Sub
Private Sub Form_Load()
End Sub