在listview控件上拖动列的问题

Question

下面是我的代码
Private Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" _
   (ByVal hwnd As Long, _
    ByVal Msg As Long, _
    ByVal wParam As Long, _
    ByVal lParam As Long) As LongPrivate Const LVM_FIRST = &H1000
Private Const LVM_SETEXTENDEDLISTVIEWSTYLE = LVM_FIRST + 54
Private Const LVM_GETEXTENDEDLISTVIEWSTYLE = LVM_FIRST + 55
Private Const LVS_EX_HEADERDRAGDROP = &H10
Private Sub Form_Load()
    
    ListView1.View = lvwReport
    
    ListView1.ColumnHeaders.Add , "Name", "Name"
    ListView1.ColumnHeaders.Add , "____", "____"
    ListView1.ColumnHeaders.Add , "Age", "Age"
    
    Dim itmX As ListItem
    
    Set itmX = ListView1.ListItems.Add(1, "ZL", "Joey")
    
    itmX.SubItems(ListView1.ColumnHeaders("____").SubItemIndex) = "male"
    
    itmX.SubItems(ListView1.ColumnHeaders("Age").SubItemIndex) = "19"
    Set itmX = ListView1.ListItems.Add(1, "LF", "monica")
    itmX.SubItems(ListView1.ColumnHeaders("____").SubItemIndex) = "female"
    itmX.SubItems(ListView1.ColumnHeaders("Age").SubItemIndex) = "22"
    Set itmX = ListView1.ListItems.Add(1, "WW", "Lily")
    itmX.SubItems(ListView1.ColumnHeaders("____").SubItemIndex) = "female"
    itmX.SubItems(ListView1.ColumnHeaders("Age").SubItemIndex) = "24"
    
    Dim lStyle As Long
    Dim lRtn As Long
   
   'get the current ListView style
    lStyle = SendMessageLong(ListView1.hwnd, LVM_GETEXTENDEDLISTVIEWSTYLE, 0&, 0&)    lStyle = lStyle Or LVS_EX_HEADERDRAGDROP
   
   'set the new ListView style
    lRtn = SendMessageLong(ListView1.hwnd, LVM_SETEXTENDEDLISTVIEWSTYLE, 0&, lStyle)
End Sub错误消息： An unhandled win32 exeception occured in VB6.EXE[5512]该程序是运行在win2003系统上的，但奇怪的是在win2000系统上没有任何问题
各位大虾，怎么解决阿，谢谢了！

Answer 1

比较两个系统下 mscomctl.ocx 的版本。