advanced wasd movement in visual basic - vb.net

Question

so im making a 2d game in visual studios, is it possible so if I hold down d then press space/w/upkey then it jumps while still moving in the current direction and could stop moving in that direction mid air?
Also my jumping code is really bad, any advice on how to make it better?
here is my code
Private Sub Map_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
If e.KeyCode = Keys.Up Or e.KeyCode = Keys.W Or e.KeyCode = Keys.Space Then
If jumping = False Then
Timer2.Interval = 1000
Timer2.Enabled = True
jumping = True
With Timer3
.Interval = 10
.Enabled = True
End With
user.Location = New Point(user.Location.X, user.Location.Y - 5)
End If
ElseIf e.KeyCode = Keys.Down Or e.KeyCode = Keys.S Then
If user.Location.Y >= ground.Location.Y - 94 Then
Else
user.Location = New Point(user.Location.X, user.Location.Y + 5)
End If
ElseIf e.KeyCode = Keys.Left Or e.KeyCode = Keys.A Then
user.Location = New Point(user.Location.X - 5, user.Location.Y)
ElseIf e.KeyCode = Keys.Right Or e.KeyCode = Keys.D Then
user.Location = New Point(user.Location.X + 5, user.Location.Y)
End If
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
If user.Bounds.IntersectsWith(ground.Bounds) Then
user.Location = New Point(user.Location.X, user.Location.Y - 6)
End If
End Sub
Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
jumping = False
Timer3.Interval = 10
Timer3.Enabled = False
Do Until user.Location.Y >= ground.Location.Y - 94
user.Location = New Point(user.Location.X, user.Location.Y + 1)
Loop
End Sub
Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick
Do Until user.Location.Y = ground.Location.Y - 180
user.Location = New Point(user.Location.X, user.Location.Y - 1)
Loop
End Sub