recursion for the function sign

recursion for the function sign

Can someone help me to make a recursive function for this code :
'------------------------------f2--------------------------------------
If e.KeyCode = Keys.F2 Then
lblf2.BackColor = Color.Blue
PanelF2.Visible = True
ElseIf e.KeyCode = Keys.O Then
If lblf2.BackColor <> Color.Blue Then
'msgbox "wala mangyari"
Else
lblOpen.BackColor = Color.Blue
lblSave.BackColor = Color.Black
lblExit.BackColor = Color.Black
PanelOpen.Visible = True
End If
ElseIf e.KeyCode = Keys.S Then
If lblf2.BackColor <> Color.Blue Then
'msgbox "wala mangyari"
Else
lblOpen.BackColor = Color.Black
lblSave.BackColor = Color.Blue
lblExit.BackColor = Color.Black
Save()
Panel1.Enabled = False
End If
ElseIf e.KeyCode = Keys.Escape Then
If lblf2.BackColor <> Color.Blue Then
'msgbox "wala mangyari"
Else
lblOpen.BackColor = Color.Black
lblSave.BackColor = Color.Black
lblExit.BackColor = Color.Blue
Me.Close()
End If
Else
lblf2.BackColor = Color.Black
PanelF2.Visible = False
lblOpen.BackColor = Color.Black
lblSave.BackColor = Color.Black
lblExit.BackColor = Color.Black
End If
'------------------------------f3--------------------------------------
If e.KeyCode = Keys.F3 Then
lblf3.BackColor = Color.Blue
PanelF3.Visible = True
ElseIf e.KeyCode = Keys.N Then
If lblf3.BackColor <> Color.Blue Then
'msgbox "wala mangyari"
Else
lblNew.BackColor = Color.Blue
PanelFile.Visible = True
End If
Else
PanelF3.Visible = False
lblf3.BackColor = Color.Black
lblNew.BackColor = Color.Black
End If
'------------------------------f4--------------------------------------
If e.KeyCode = Keys.F4 Then
lblf4.BackColor = Color.Blue
PanelF4.Visible = True
ElseIf e.KeyCode = Keys.P Then
If lblf4.BackColor <> Color.Blue Then
'msgbox "wala mangyari"
Else
lblPrint.BackColor = Color.Blue
End If
Else
lblf4.BackColor = Color.Black
PanelF4.Visible = False
lblPrint.BackColor = Color.Black
End If
'------------------------------f5--------------------------------------
If lblf5.Enabled = True Then
If e.KeyCode = Keys.F5 Then
lblf5.BackColor = Color.Blue
PanelF5.Visible = True
ElseIf e.KeyCode = Keys.E Then
If lblf5.BackColor <> Color.Blue Then
'msgbox "wala mangyari"
Else
lblEdit.BackColor = Color.Blue
lblDelete.BackColor = Color.Black
lblAdd.BackColor = Color.Black
lblHold.BackColor = Color.Black
End If
ElseIf e.KeyCode = Keys.D Then
If lblf5.BackColor <> Color.Blue Then
'msgbox "wala mangyari"
Else
lblEdit.BackColor = Color.Black
lblDelete.BackColor = Color.Blue
lblAdd.BackColor = Color.Black
lblHold.BackColor = Color.Black
DeleteData()
End If
ElseIf e.KeyCode = Keys.A Then
If lblf5.BackColor <> Color.Blue Then
'msgbox "wala mangyari"
Else
lblEdit.BackColor = Color.Black
lblDelete.BackColor = Color.Black
lblAdd.BackColor = Color.Blue
lblHold.BackColor = Color.Black
End If
ElseIf e.KeyCode = Keys.H Then
If lblf5.BackColor <> Color.Blue Then
'msgbox "wala mangyari"
Else
lblEdit.BackColor = Color.Black
lblDelete.BackColor = Color.Black
lblAdd.BackColor = Color.Black
lblHold.BackColor = Color.Blue
End If
Else
lblf5.BackColor = Color.Black
PanelF5.Visible = False
lblEdit.BackColor = Color.Black
lblDelete.BackColor = Color.Black
lblAdd.BackColor = Color.Black
lblHold.BackColor = Color.Black
End If
End If
'------------------------------f6--------------------------------------
If e.KeyCode = Keys.F6 Then
lblf6.BackColor = Color.Blue
PanelF6.Visible = True
ElseIf e.KeyCode = Keys.R Then
If lblf6.BackColor <> Color.Blue Then
'msgbox "wala mangyari"
Else
lblReset.BackColor = Color.Blue
ListView1.Items.Clear()
End If
Else
lblf6.BackColor = Color.Black
PanelF6.Visible = False
lblReset.BackColor = Color.Black
End If
'------------------------------f7--------------------------------------
If e.KeyCode = Keys.F7 Then
lblf7.BackColor = Color.Blue
PanelF7.Visible = True
ElseIf e.KeyCode = Keys.C Then
If lblf7.BackColor <> Color.Blue Then
'msgbox "wala mangyari"
Else
lblCode.BackColor = Color.Blue
lblDate.BackColor = Color.Black
lblPrice.BackColor = Color.Black
lblID.BackColor = Color.Black
Me.ListView1.ListViewItemSorter = New ListViewItemComparer(1)
End If
ElseIf e.KeyCode = Keys.D Then
If lblf7.BackColor <> Color.Blue Then
'msgbox "wala mangyari"
Else
lblCode.BackColor = Color.Black
lblDate.BackColor = Color.Blue
lblPrice.BackColor = Color.Black
lblID.BackColor = Color.Black
Me.ListView1.ListViewItemSorter = New ListViewItemComparer(5)
End If
ElseIf e.KeyCode = Keys.P Then
If lblf7.BackColor <> Color.Blue Then
'msgbox "wala mangyari"
Else
lblCode.BackColor = Color.Black
lblDate.BackColor = Color.Black
lblPrice.BackColor = Color.Blue
lblID.BackColor = Color.Black
Me.ListView1.ListViewItemSorter = New ListViewItemComparer(6)
End If
ElseIf e.KeyCode = Keys.I Then
If lblf7.BackColor <> Color.Blue Then
'msgbox "wala mangyari"
Else
lblCode.BackColor = Color.Black
lblDate.BackColor = Color.Black
lblPrice.BackColor = Color.Black
lblID.BackColor = Color.Blue
Me.ListView1.ListViewItemSorter = New ListViewItemComparer(0)
End If
Else
lblf7.BackColor = Color.Black
PanelF7.Visible = False
lblCode.BackColor = Color.Black
lblDate.BackColor = Color.Black
lblPrice.BackColor = Color.Black
lblID.BackColor = Color.Black
End If
'------------------------------f8--------------------------------------
If e.KeyCode = Keys.F8 Then
lblf8.BackColor = Color.Blue
PanelF8.Visible = True
ElseIf e.KeyCode = Keys.L Then
If lblf8.BackColor <> Color.Blue Then
'msgbox "wala mangyari"
Else
lblLanguage.BackColor = Color.Blue
End If
Else
lblf8.BackColor = Color.Black
PanelF8.Visible = False
lblLanguage.BackColor = Color.Black
End If
The flow of my code is when you press "F2", the "F2" label would be
highlighted then the panel will be visible for the another choice to be
press. And I want my code will be in a simple way.