在 控 件 中 添 加 對 DBGrid的 引 用 ， 添 加 一 個 只 寫 屬 性 : 
    dim withevents m_dbgrid as dbgrid 
    public property set FriendDBGrid (pDBGrid as dbgrid) 
     set m_dbgrid=pdbgrid 
    end property 
    在 運 行 時 ,設 置 該 屬 性 : 
    private form_load() 
    set me.usrecontrol1.frienddbgrid=me.dbgrid1 
    ... 
    end sub 
    在 控 件 的 Terminate事 件 中 ,set m_dbgrid=nothing 
    在 控 件 需 要 引 用 dbgrid的 地 方 ,需 要 判 斷 : 
    if not (m_dbgrid is nothing) then 
     .... 
    end if 
<END>