vb forms2.0 CommandButton控件禁止双击锁定与无焦点框

forms2.0   CommandButton控件禁止双击锁定与无焦点框

Private Sub CommandButton1_DblClick(Cancel As MSForms.ReturnBoolean)
    Cancel.Value = True                                                         '双击不锁定
End Sub
                                                                        
Private Sub Form_Load()
    CommandButton1.TakeFocusOnClick = False                                     '无焦点
End Sub