Use Mouse Scroll DataGrid in VB6

Create dim bCancel as boolean
set bCancel = cancel in DataGrid setfocus, changed true if lostfocus,including unload form

Private Sub Proses(ByVal DatGrid As DataGrid)
Dim Message As msg
Do While Not bCancel
If PeekMessage(Message, DatGrid.hWnd, WM_MOUSEWHEEL, WM_MOUSEWHEEL, PM_REMOVE) Then
If Message.wParam < 0 Then
DatGrid.Scroll 0, 1
' Me.Top = Me.Top + 240
Else
DatGrid.Scroll 0, -1
' Me.Top = Me.Top - 240
End If
End If
DoEvents
Loop
End Sub