Side scrolling problem with Key events

[project]

I am using a code which goes like this:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
 
If Imgme.Top <= 400 Then
  Imgme.Top = 400
End If
 
If KeyCode = vbKeyRight Then
  c = c + 1
  If c = 12 Then c = 1
  Imgme.Picture = meright(c).Picture
  Imgme.Left = Imgme.Left + 45
End If
 
If KeyCode = vbKeyLeft Then
  d = d + 1
  If d = 8 Then d = 1
  Imgme.Picture = meleft(d).Picture
  Imgme.Left = Imgme.Left - 45
End If
 
End Sub

to code a side scrolling game. I want to create a jump button, in which when I press on it, it jumps up for a while and then drop down. I also want to include a crouch button where when I press down, I bend down(keydown) but if I let go, it stands up again.

I tried doing something like this:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDown Then
  Imgme.Picture = mecrouch.Picture
End If
-----
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDown Then
  Imgme.Picture = Imgme.Picture
End If
 

But it doesn't seem to work. Can anyone tell me how to make the crouch work, and how to implement a jump function.

Thanks in advance, I will appreciate it!

[Killer42]

Can you show us the actual code you ended up with, so we don't just duplicate what you're already tried? You haven't shown us how you integrated the two different KeyDown routines.

To judge from the Sub declaration, this is in VB6 - correct?