请教大侠关于image控件的问题

edimondumpling

想做一个皮肤的窗体，form打开时候加载各种所需图片，发现一个很头痛的问题，用下面的代码加载链接图片时，后台总是跳“Importing ×××图片”
由于控件很多，加载时间很长，总觉得不是办法

请教哪位大侠有更好的方法解决，小弟不胜感谢！
代码如下
    If dir(CurrentProject.path & "\files\skins\" & DLookup("SkinAdress_T", "TblSkinName", "SkinID_T='001'") & "\defaultButton.gif") = "" Then
        Msg ("haha")
        For i = 1 To 4
            For j = 1 To 4
                Me.Controls("img_pg" & j & "_cmd" & i).Picture = ""
            Next j
        Next i
    Else
        For i = 1 To 4
            For j = 1 To 4
                Me.Controls("img_pg" & j & "_cmd" & i).Picture = CurrentProject.path & "\files\skins\" & DLookup("SkinAdress_T", "TblSkinName", "SkinID_T='001'") & "\defaultButton.gif"
            Next j
        Next i
    End If

先谢谢了～～

ui

access就有这毛病, 用API加载picture不知是否行,没试过

edimondumpling

能否给个示例，谢谢～～