Re: Within a *.exe

You've probably switched to a different keyboard layout. The default key to
switch is the Left-Alt key and the Left-Shift key held down together. If
you want a more visible way of checking which keyboard layout you're using,
use Control Panel, Keyboard to switch (although the language will usually
also be displayed in your system tray, but the Control Panel methoid is
pretty much guaranteed to work).


Rob

"Ron" <Ron@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:44F0CE92-B39C-4A55-A326-023C0A4DC4F8@xxxxxxxxxxxxxxxx
Hi Thanks for your post I was able to get what I wanted. I now have a
quirky
situation, my keyboard has changed when I hold down the Shift Key to get
the
@ sign I get the " instead. Any ideas?

"J French" wrote:

On Thu, 1 Mar 2007 02:02:06 -0800, =?Utf-8?B?Um9u?=
<Ron@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote:

Hi Ralph
Thanks, sorry I do not think I have seen "Easter Eggs" on Windows apps,
sounds like a good idea can you give me a sample to work from please?

Try this - you can make it a lot more picky

Option Explicit

Private Sub Form_Load()
Me.Caption = "Hold down Shift and Right Click Form 3 times"
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As
Single, Y As Single)
Static HoldTimer!, Count&

If Shift And vbShiftMask = vbShiftMask Then
If Button = vbRightButton Then
Beep
' First Click
If Abs(Timer - HoldTimer) > 2 Then
HoldTimer = Timer
Count = 1
Me.Caption = Str$(Count)
Exit Sub
End If
' 2nd / 3rd Click
If (Timer - HoldTimer) < 2 Then
Count = Count + 1
Me.Caption = Str$(Count)
If Count = 3 Then
MsgBox "BOO!"
End If
End If
End If
End If

End Sub




.