API函数声明Private Declare Function GetSystemMenu()Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, _    ByVal bRevert As Long) As LongPrivate Declare Function RemoveMenu()Function RemoveMen

先建一个菜单，将其INDEX设   Case 0     MSHFlexGrid1.sort = flexSortGenericAscending   Case 1     MSHFlexGrid1.sort = flexSortGenericDescending   Case 2     MSHFlexGrid1.sort = flexSortNumericAscending   Cas

  Const MAX_TOOLTIP As Integer = 64 Const NIF_ICON = &H2                          删除图标 Const NIF_MESSAGE = &H1 Const NIF_TIP = &H4 Const NIM_ADD = &H0                          添加图标到任务栏提示区 Const