在单击按钮时提示‘对象已加载’，各位帮忙找下错在哪？下面是出错的部分
Dim i As Integer
          Check1(0).Top = MSFGrid1.Top + 350
          Check1(0).Height = 230
          For i = 1 To mRS.RecordCount - 1
                  Load Check1(i)   
                  Check1(i).Top = Check1(i - 1).Top + 285
                  Check1(i).Left = MSFGrid1.Left + 480
                  Check1(i).Visible = True
                  Check1(i).ZOrder 0
            Next i
整个程序如下

各位帮帮忙吧

Private Sub Command1_Click()
.
.
.

    For i = 1 To mRS.RecordCount '此处有修改
         mRS.Fields("hedui") = Check1(i - 1).Value
         If i - 1 <> 0 Then Unload Check1(i - 1) '增加这一句
    Next i
.
.
.

End Sub

谢谢，成功了！！