一段VBA代码的困惑

linhui12

小弟不懂编程,哪位朋友帮个忙,将以下这段代码用LISP表示一下,先谢谢各位了

Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
    'CheckBox1.Value = False
    CheckBox3.Value = False
    CheckBox4.Value = False
    OptionButton1.Enabled = True
    OptionButton2.Enabled = True
    OptionButton3.Enabled = False
End If
End Sub

nonsmall

按照意思改的

只是感觉怪怪的

(defun CheckBox2_Click()
 (if (= (get_tile "CheckBox2") 1)
  (progn
   ;(set_tile "CheckBox1" 0)
   (set_tile "CheckBox3" 0)
   (set_tile "CheckBox4" 0)
   (mode_tile "OptionButton1" 0)
   (mode_tile "OptionButton2" 0)
   (mode_tile "OptionButton3" 1)   
  )
 )
)