Labels:monitor | web site OCR: Protected Overr ides Sub WndProc ByRef r System Windows Forms Message Check for vert ical scroll event Msg VSCROLI Then eArg TopIndex Me TopIndex Select edIndex Me SelectedIndex Dim ScrollListBoxEvent Args New ScrollListBoxEvent Args (eArg) RaiseEvent Scroll (Me ElseIf rm MSC MOUSEWHEEL Then Let the istBox class process the m event message argument iirst and then raise our Scroll event MyBase. WndF roc (m) Top Index Me TopIndex eArg SelectedIndex SelectedIndex Dir ScrollListBoxEvent Args New ScrollListBoxEventi Args eArg) RaiseEvent ScrollMe, Exit the Sub to prevent the m event message argument from be ing passed through to the Listhox class again Exit Sub End Pass Message onto the derived ListBox class MyBase WndP roc (m) End Sub WnaProc VSCROLL Scro arqument first Scrol pasesd
