Detect shift key

[Pradeep1210]

look at this:

Private Sub form_KeyDown(KeyCode As Integer, shift As Integer)
  If shift = 1 Then
  engupper.Visible = True
    englower.Visible = False
    shiftcheck = False
Else
    englower.Visible = True
    engupper.Visible = False
End If
End Sub

when I let go of shift then "engupper" just remains hidden. Any suggestions?

I think the IF block should be in ELSE and vice-versa.

Private Sub form_KeyDown(KeyCode As Integer, shift As Integer)
If shift = 1 Then
    englower.Visible = True
    engupper.Visible = False
Else
    engupper.Visible = True
    englower.Visible = False
    shiftcheck = False
End If
End Sub