1: Private g_Title As String 2: Private g_DGrid As DataGrid 3: 4: Public Sub SetTitle(ByRef Title As String, ByRef DGrid As DataGrid) 5: ' 表示すべきデータを設定する 6: g_Title = Title 7: Set g_DGrid = DGrid 8: End Sub