~~~~~~~~~~~Easy Coding with Richard~~~~~~~~~~~~~~~~~
Customize No Border Form in VB
CODE:
Public Class Form1
Private Sub btn_close_Click(sender As System.Object, e As System.EventArgs) Handles btn_close.Click
Me.Close()
End Sub
Private Sub btn_max_Click(sender As Object, e As System.EventArgs) Handles btn_max.Click
Me.WindowState = FormWindowState.Maximized
End Sub
Private Sub btn_min_Click(sender As Object, e As System.EventArgs) Handles btn_min.Click
Me.WindowState = FormWindowState.Minimized
End Sub
Private Sub btn_close_MouseHover(sender As System.Object, e As System.EventArgs) Handles btn_close.MouseHover
btn_close.BackColor = Color.Red
End Sub
Private Sub btn_close_MouseLeave(sender As System.Object, e As System.EventArgs) Handles btn_close.MouseLeave
btn_close.BackColor = Color.Transparent
End Sub
Private Sub btn_max_MouseHover(sender As System.Object, e As System.EventArgs) Handles btn_max.MouseHover
btn_max.BackColor = Color.Blue
End Sub
Private Sub btn_max_MouseLeave(sender As Object, e As System.EventArgs) Handles btn_max.MouseLeave
btn_max.BackColor = Color.Transparent
End Sub
Private Sub btn_min_MouseHover(sender As System.Object, e As System.EventArgs) Handles btn_min.MouseHover
btn_min.BackColor = Color.Brown
End Sub
Private Sub btn_min_MouseLeave(sender As Object, e As System.EventArgs) Handles btn_min.MouseLeave
btn_min.BackColor = Color.Transparent
End Sub
End Class