实现Serialize方法保存/恢复菜单项信息。-Realise Serialize method to save and restore the menu information

XP样式的菜单控件非常方便 Friend Sub Store(ByRef tMI() As tMenuItem, ByVal iMenuCount As Long) Dim iItem As Long m_iMenuCount = iMenuCount If (m_iMenuCount > 0) Then ReDim m_tMI(1 To m_iMenuCount) As tMenuItem For iItem = 1 To m_iMenuCount