1: Private g_FLXGrid As MSHFlexGrid 2: Private g_TitleFrame As Frame 3: 4: Public Sub SetTitle2(ByRef titleFrame As Frame, _ ByRef FLXGrid As MSHFlexGrid) 5: ' 表示すべきデータを設定する 6: Set g_TitleFrame = titleFrame 7: Set g_DGrid = Nothing 8: Set g_FLXGrid = FLXGrid 9: End Sub