VB复选框控件在按键精灵中返回值不变什么原因

Option Explicit
Type ControlData
    Name As String
    Value As String
End Type
Public FormSizeCX As Long, FormSizeCY As Long
Public Function GetControlData() As Collection
    Set GetControlData = ControlDataCollection
End Function
Private Sub UserControl_Initialize()
    FormSizeCX = Width
    FormSizeCY = Height
    OnInitialize
End Sub
Private Sub OnInitialize()
End Sub
Public Sub OnSave()
    ClearControlData
    SaveControlData fxk1.Name, fxk1
End Sub

Public Sub OnLoad()
    fxk1 = LoadControlData(fxk1.Name)
End Sub