清空下一页键值

        Private Sub Command2_Click()
         D02.hide
         Gfct1.show

        Gfct1.Check1.Value = 0
        Gfct1.Check2.Value = 0
        Gfct1.Check3.Value = 0
        Gfct1.Check4.Value = 0
        Gfct1.Check5.Value = 0
        Gfct1.Check6.Value = 0
        Gfct1.Check7.Value = 0
        Gfct1.Check8.Value = 0
        Gfct1.Check9.Value = 0
        
        Gfct2.Check1.Value = 0
        Gfct2.Check2.Value = 0
        Gfct2.Check3.Value = 0
        Gfct2.Check4.Value = 0
        Gfct2.Check5.Value = 0
        Gfct2.Check6.Value = 0
        Gfct2.Check7.Value = 0
        Gfct2.Check8.Value = 0
        Gfct2.Check9.Value = 0
        
        GFct3.Check1.Value = 0
        GFct3.Check2.Value = 0
        GFct3.Check3.Value = 0
        GFct3.Check4.Value = 0
        GFct3.Check5.Value = 0
        GFct3.Check6.Value = 0
        GFct3.Check7.Value = 0
        GFct3.Check8.Value = 0
        GFct3.Check9.Value = 0
        
        Gfct4.Check1.Value = 0
        Gfct4.Check2.Value = 0
        Gfct4.Check3.Value = 0
        Gfct4.Check4.Value = 0
        Gfct4.Check5.Value = 0
        Gfct4.Check6.Value = 0
        Gfct4.Check7.Value = 0
        Gfct4.Check8.Value = 0
        Gfct4.Check9.Value = 0
        
        gfct5.Check1.Value = 0
        gfct5.Check2.Value = 0
        gfct5.Check3.Value = 0
        gfct5.Check4.Value = 0
        gfct5.Check5.Value = 0
        gfct5.Check6.Value = 0
        gfct5.Check7.Value = 0
        gfct5.Check8.Value = 0
        gfct5.Check9.Value = 0
        gfct5.Check10.Value = 0
        gfct5.Check11.Value = 0
        gfct5.Check12.Value = 0
        gfct5.Check13.Value = 0
        gfct5.Check14.Value = 0
        gfct5.Check15.Value = 0
        gfct5.Check16.Value = 0
        gfct5.Check17.Value = 0
        gfct5.Check18.Value = 0
        
        gfct6.Check1.Value = 0
        gfct6.Check2.Value = 0
        gfct6.Check3.Value = 0
        gfct6.Check4.Value = 0
        gfct6.Check5.Value = 0
        gfct6.Check6.Value = 0
        gfct6.Check7.Value = 0
        gfct6.Check8.Value = 0
        gfct6.Check9.Value = 0
        gfct6.Check10.Value = 0
        gfct6.Check11.Value = 0
        gfct6.Check12.Value = 0
        
        gfct7.Check1.Value = 0
        gfct7.Check2.Value = 0
        gfct7.Check3.Value = 0
        gfct7.Check4.Value = 0
        gfct7.Check5.Value = 0
        gfct7.Check6.Value = 0
        gfct7.Check7.Value = 0
        gfct7.Check8.Value = 0
        gfct7.Check9.Value = 0
        gfct7.Check10.Value = 0

end sub
以上附件是要将下面几页的键值清空
求教师傅有没有什么简单的方法，谢谢！