Article ID: 118818
Article Last Modified on 12/9/2003
' Add a KeyStat control (KeyStat1 by default)
' Set the Style property to 1 - Num Lock
' Set the visible property to False
Sub Command1_Click ()
NumLockStatus = KeyStat1.Value
Clipboard.SetText "DIR" + Chr(13)
AppActivate "MS-DOS Prompt" ' Title of Windowed MS-DOS Session
SendKeys "% ep"
KeyStat1.Value = NumLockStatus
End Sub
NOTE: The KeyStat control does not fix the problem if you specify True for
the Wait parameter in the SendKeys statement.
Sub Command1_Click ()
Clipboard.SetText "DIR" + Chr(13)
AppActivate "MS-DOS Prompt" ' Title of Windowed MS-DOS Session
SendKeys "% ep"
End Sub
Additional query words: buglist1.00 buglist2.00 buglist3.00 2.00 3.00 NumLock
Keywords: kbbug KB118818