Visual Basic

Protected Overrides Sub WndProc(ByRef msg As System.Windows.Forms.Message)

        Select Case msg.Msg
            'We only care about hotkey messages
            Case ForcHotKey.WM_HOTKEY
                'if this is our hotkey and the ActiveControl from the ActiveForm is a textbox, Insert the current date.
                If CShort(msg.WParam) = m_HotkeyID Then
                    If TypeOf (Me.ActiveForm.ActiveControl) Is TextBox Then
                        Me.ActiveForm.ActiveControl.Text = Me.ActiveForm.ActiveControl.Text.Insert(Me.ActiveForm.ActiveControl.Text.Length, DateTime.Now.ToShortDateString)

                        'move the cursor to end
                        Dim tb As TextBox
                        tb = Me.ActiveForm.ActiveControl
                        tb.Select(Me.ActiveForm.ActiveControl.Text.Length, 0)
                    End If
                End If
                Exit Select
            Case Else
                'pass it back to main WndProc
                MyBase.WndProc(msg)
                Exit Select
        End Select
End Sub

GuyThiebaut wrote:

How do I ensure that when the developer codes fooHelp.filterForm(foo,...) they get an error message?

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]

internal sealed class MyForms
{
	public Form1 m_Form1;
	public Form2 m_Form2;
        // ..more..
	public Form2 Form2
	{
		[DebuggerNonUserCode]
		get
		{
			this.m_Form2 = MyProject.MyForms.Create__Instance__<Form2>(this.m_Form2);
			return this.m_Form2;
		}
		[DebuggerNonUserCode]
		set
		{
			bool flag = value == this.m_Form2;
			if (!flag)
			{
				flag = (value != null);
				if (flag)
				{
					throw new ArgumentException("Property can only be set to Nothing");
				}
				this.Dispose__Instance__<Form2>(ref this.m_Form2);
			}
		}
	}

Public Class Form2

    <Obsolete("Use the CreateNew method")>
    Sub New()

        Throw New ApplicationException("")

    End Sub

    Private Sub New(ByVal skip As Boolean)
        ' This call is required by the designer.
        InitializeComponent()
    End Sub

    Public Shared Function CreateNew() As Form2
        Return New Form2(True) ' use generics for a real factory :)
    End Function

End Class

Bastard Programmer from Hell
If you can't read my code, try converting it here[^]