module1.bas

彩票号码产生软件原码,可在36选7的体育彩票号码中选号。本人是初学者

Attribute VB_Name = "Module1"
Option Explicit

Sub Ckonly(Ck1 As CheckBox, Ck2 As CheckBox)
  If Ck1.Value = 1 Then
     Ck2.Value = 0
  Else
     Ck2.Value = 1
  End If
End Sub

Function stat()

End Function