Paul

I have built a new project and reproduces the error here is a copy of all my
code

Please note that on form2 the toolbarbuttonclick sub never gets fired...

thanks so much for taking the time to look at this!

nathan

module1.vb
Imports OpenNETCF.Windows.Forms

Imports Microsoft.WindowsCE.Forms

Module Module1

Public NavFilter As OpenNETCF.Windows.Forms.NavFilter

Sub Main()

NavFilter = New OpenNETCF.Windows.Forms.NavFilter

Application2.AddMessageFilter(NavFilter)

Application2.Run(New Form1)

If Not NavFilter Is Nothing Then

Application2.RemoveMessageFilter(NavFilter)

NavFilter = Nothing

End If

End Sub

End Module

form1.vb

Imports OpenNETCF.Windows.Forms

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click

Dim f As Form2

f = New Form2

Application2.ShowDialog(f, False)

f.Dispose()

f = Nothing

End Sub

Public Sub New()

' This call is required by the Windows Form Designer.

InitializeComponent()

' Add any initialization after the InitializeComponent() call.

End Sub

End Class

Form2.vb

Public Class Form2

Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.ToolBarButtonClickEventArgs) Handles
ToolBar1.ButtonClick

MsgBox("here")

End Sub

End Class

NavFilter.vb

Imports OpenNETCF.Windows.Forms

Imports Microsoft.WindowsCE.Forms

Namespace OpenNETCF.Windows.Forms

Public Enum WinMsg As Integer

WM_CLOSE = &H10

WM_PAINT = &HF

WM_KEYDOWN = &H100

WM_KEYUP = &H101

End Enum

Public Delegate Sub KeyEvent(ByRef hwnd As Integer, ByRef e As KeyEventArgs)

' this class handles all the nav keydown events

' there is a global variable ActivePanel which we look at when we navigate
around our form

' if any controls are not on the active panel we wont navigate to them

' if a control is out of view we set the scrolling position so the control
is in view...

Public Class NavFilter

Implements IMessageFilter

Private mHwnds As ArrayList

Public Event KeyDown As KeyEvent

Sub New()

mHwnds = New ArrayList

End Sub

Public Property Hwnds() As ArrayList

Get

Return mHwnds

End Get

Set(ByVal value As ArrayList)

mHwnds = value

End Set

End Property

Public Function PreFilterMessage(ByRef m As
Microsoft.WindowsCE.Forms.Message) As Boolean Implements
IMessageFilter.PreFilterMessage

If mHwnds.Contains(m.HWnd.ToInt32) Then

If m.Msg = WinMsg.WM_KEYDOWN Then

Dim keyArgs As New KeyEventArgs(m.WParam.ToInt32)

If keyArgs.KeyValue = Keys.Up Or keyArgs.KeyValue = Keys.Down Or
keyArgs.KeyValue = Keys.Left Or keyArgs.KeyValue = Keys.Right Then

' this is where we need to process our nav...

' we raise the event because we will hanbdle everything else in ModMain

' this just keeps things clean in here

RaiseEvent KeyDown(m.HWnd.ToInt32, keyArgs)

' only handle this if we can.. else this will be sent through the normal
processing system

If keyArgs.Handled Then

Return True

End If

End If

End If

End If

Return False

End Function

End Class

End Namespace