Side Menu Design in visual studio | vb.net

Code :

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
PnlMenu.Location = New Point(-160, 0)
btnMenuHide.BringToFront()
PnlMenuTop.BackColor = Color.Orange
LnMenu1.Location = New Point(159, 0)
LnMenu2.Location = (New Point(159, 50))
PnlMenu.BackColor = Color.Gray

End Sub

Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
Application.Exit()
End Sub

Private Sub btnMenuHide_Click(sender As Object, e As EventArgs) Handles btnMenuHide.Click
PnlMenu.Location = New Point(0, 0)
btnMenuShow.BringToFront()
PnlMenuTop.BackColor = Color.Blue
LnMenu1.Location = New Point(0, 0)
LnMenu2.Location = (New Point(0, 50))
PnlMenu.BackColor = Color.DimGray
End Sub

Private Sub btnMenuHide_MouseHover(sender As Object, e As EventArgs) Handles btnMenuHide.MouseHover
btnMenuHide.BackColor = Color.Blue
End Sub

Private Sub btnMenuHide_MouseLeave(sender As Object, e As EventArgs) Handles btnMenuHide.MouseLeave
btnMenuHide.BackColor = Color.Orange
End Sub

Private Sub btnClose_MouseHover(sender As Object, e As EventArgs) Handles btnClose.MouseHover
btnClose.BackColor = Color.Red
End Sub

Private Sub btnClose_MouseLeave(sender As Object, e As EventArgs) Handles btnClose.MouseLeave
btnClose.BackColor = Color.Gray
End Sub

Private Sub btnMenuShow_Click(sender As Object, e As EventArgs) Handles btnMenuShow.Click
PnlMenu.Location = New Point(-160, 0)
btnMenuHide.BringToFront()
PnlMenuTop.BackColor = Color.Orange
LnMenu1.Location = New Point(159, 0)
LnMenu2.Location = (New Point(159, 50))
PnlMenu.BackColor = Color.Gray
End Sub

Private Sub btnMenuShow_MouseHover(sender As Object, e As EventArgs) Handles btnMenuShow.MouseHover
btnMenuShow.BackColor = Color.Orange
End Sub

Private Sub btnMenuShow_MouseLeave(sender As Object, e As EventArgs) Handles btnMenuShow.MouseLeave
btnMenuShow.BackColor = Color.Blue
End Sub
End Class