VB6的网格控件,该怎么处理

VB6的网格控件
各位：
    用VB6.0+ACCESS编程，显示数据的时候，网络控件老是觉得不够好用，如datagrid 等，用鼠标拉的时候，还不会跟着动，还有，MOUSE的滚轮，也不能用……
   各位，你们是用什么网格控件的？有没有类似ACCESS的网格控件，还支持右键菜单就更好啦，谢谢

用VB.net 是不是有这类型的网格控件？
------解决方案--------------------
VB LISTVIEW控件
------解决方案--------------------
datagrid因是早期的产物，所以本身不支持滚轮。要想让它支持滚轮可以通过API来实现

DataGrid本身不支持鼠标滚轮功能，必须要通过API才能实现。

下面代码，无论你的窗体有多少个DataGrid控件，只要是获得焦点的就支持鼠标滚轮，而且还支持MSHFlexGrid控件鼠标滚轮！

代码如下：

一、先建一个模块(Module1)，把以下代码贴上：

Option Explicit

Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const GWL_WNDPROC = (-4)
Private Const WM_MOUSEWHEEL = &H20A
Private lpWndProc As Long

Public Sub Hook(hwnd As Long)
    lpWndProc = GetWindowLong(hwnd, GWL_WNDPROC) '获得原始窗口函数句柄
    SetWindowLong hwnd, GWL_WNDPROC, AddressOf WindowProc '装载WM_MOUSEWHEEL消息的处理过程到窗口函数
End Sub

Public Sub UnHook(hwnd As Long)
    SetWindowLong hwnd, GWL_WNDPROC, lpWndProc '御掉Hook，还原原始窗口函数
End Sub

Private Function WindowProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
'处理WM_MOUSEWHEEL消息的窗口函数
Dim wzDelta As Integer

    If uMsg = WM_MOUSEWHEEL Then
       wzDelta = HIWORD(wParam)
       If Sgn(wzDelta) = 1 Then
          If TypeOf Screen.ActiveControl Is DataGrid Then Screen.ActiveControl.Scroll 0, -1
       Else
          If TypeOf Screen.ActiveControl Is DataGrid Then Screen.ActiveControl.Scroll 0, 1
       End If
       
       If TypeOf Screen.ActiveControl Is MSHFlexGrid Then
          If wzDelta > 0 Then
              If Screen.ActiveControl.TopRow > 1 Then
                  If Screen.ActiveControl.TopRow < 1 Then
                      Screen.ActiveControl.TopRow = 1