vb俄罗斯方块程序代码

Option Explicit

Private Sub Cmdcancel_Click() Unload Me End Sub

Private Sub Form_Load()

If frmMain.blnClockWise Then optClockWise.Value = True Else

optCounterClockWise.Value = True End If

If frmMain.blnScheme Then Option3.Value = True Else

Option4.Value = True End If

If frmMain.blnShowNext Then chkShowNext.Value = 1 Else

chkShowNext.Value = 0 End If

Text1.Text = frmMain.intDownDistance End Sub

Private Sub CmdOk_Click()

frmMain.blnClockWise = optClockWise.Value frmMain.blnScheme = Option3.Value

frmMain.blnShowNext = chkShowNext.Value frmMain.intDownDistance = Val(Text1) Unload Me End Sub

Private Sub Option1_Click()

End Sub