Test for Insert Key

[hmstoo44dd]

How can I test to see if the insert key has been set to on?
I am working in Reflection for IBM and need to insert data into a row.

I cannot use 'Session.Transmit rcIBMInsertKey' if the insert is on because it will toggle it off.

 

[Zathras]

Try this:
[blue]

Option Explicit
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Function InsertMode() As Boolean
  InsertMode = (GetKeyState(vbKeyInsert) = 1)
End Function

Sub test()
  MsgBox "Insert mode is " & InsertMode
End Sub

[/color]