How to Create Login System in Visual Basic.Net Using SQL | VB.NET - How Design Login vb.net part2

how to Create and design login window form in visual basic /vb.net.
how to create signup in visual basic vb.net. part1 link here .
https://youtu.be/WGEbkIJg6Kk
Private Sub login_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Width = 882
Me.Height = 556
Panel1.BackColor = Color.FromArgb(150, 0, 0, 0)
Panel2.BackColor = Color.FromArgb(150, 0, 0, 0)

Label1.BackColor = Color.Transparent
Label2.BackColor = Color.Transparent
Label3.BackColor = Color.Transparent
Label4.BackColor = Color.Transparent

Label1.ForeColor = Color.White
Label2.ForeColor = Color.White
Label3.ForeColor = Color.White
Label4.ForeColor = Color.White
LoginButton(btnlogin)
Cancel1Button(btncancel)
CLOSEButton(btnclose)
End Sub
Private Sub LoginButton(btn As Button)

btn.FlatStyle = FlatStyle.Flat
btn.FlatAppearance.BorderSize = 0
btn.BackColor = Color.DarkGreen
btn.ForeColor = Color.White
btn.Cursor = Cursors.Hand
btn.Font = New Font("Century Gothic", 14)

Dim Raduis As New Drawing2D.GraphicsPath

Raduis.StartFigure()
Raduis.AddArc(New Rectangle(0, 0, 20, 20), 180, 90)
Raduis.AddLine(10, 0, btn.Width - 20, 0)
Raduis.AddArc(New Rectangle(btn.Width - 20, 0, 20, 20), -90, 90)
Raduis.AddLine(btnlogin.Width, 20, btn.Width, btn.Height - 10)
Raduis.AddArc(New Rectangle(btn.Width - 25, btn.Height - 25, 25, 25), 0, 90)
Raduis.AddLine(btn.Width - 10, btn.Width, 20, btn.Height)
Raduis.AddArc(New Rectangle(0, btn.Height - 20, 20, 20), 90, 90)
Raduis.CloseFigure()

btnlogin.Region = New Region(Raduis)
End Sub

Private Sub Cancel1Button(btn As Button)

btn.FlatStyle = FlatStyle.Flat
btn.FlatAppearance.BorderSize = 0
btn.BackColor = Color.DarkRed
btn.ForeColor = Color.White
btn.Cursor = Cursors.Hand
btn.Font = New Font("Century Gothic", 14)

Dim Raduis As New Drawing2D.GraphicsPath

Raduis.StartFigure()
Raduis.AddArc(New Rectangle(0, 0, 20, 20), 180, 90)
Raduis.AddLine(10, 0, btn.Width - 20, 0)
Raduis.AddArc(New Rectangle(btn.Width - 20, 0, 20, 20), -90, 90)
Raduis.AddLine(btncancel.Width, 20, btn.Width, btn.Height - 10)
Raduis.AddArc(New Rectangle(btn.Width - 25, btn.Height - 25, 25, 25), 0, 90)
Raduis.AddLine(btn.Width - 10, btn.Width, 20, btn.Height)
Raduis.AddArc(New Rectangle(0, btn.Height - 20, 20, 20), 90, 90)
Raduis.CloseFigure()

btncancel.Region = New Region(Raduis)
End Sub


Private Sub btnlogin_Click(sender As Object, e As EventArgs) Handles btnlogin.Click
If con.State = ConnectionState.Open Then
con.Close()
End If
con.Open()
If TextBox1.Text = "" Then
MsgBox("Enter username", MsgBoxStyle.Critical)
ElseIf TextBox2.Text = "" Then
MsgBox("Enter Password", MsgBoxStyle.Critical)
Else
Dim query As String
query = "select * from Users where Username='" & TextBox1.Text & "' And Password='" & TextBox2.Text & "' And Type='" & ComboBox1.SelectedItem & "'"
cmd = New SqlCommand(query, con)
Dim da As SqlDataAdapter = New SqlDataAdapter(cmd)
Dim ds As DataSet = New DataSet()
da.Fill(ds)
Dim a As Integer
a = ds.Tables(0).Rows.Count
If a = 0 Then
MsgBox("Login fail Enter valid ID & Password and Type", MsgBoxStyle.Critical)
ElseIf ComboBox1.SelectedItem = "ADMIN" Then
n1 = TextBox1.Text
n2 = ComboBox1.SelectedItem
Label2.Text = n1
Label3.Text = n2
Me.Show()
MsgBox("Admin login")
Panel1.Hide()
Panel2.Hide()

TextBox1.Text = ""
TextBox2.Text = ""
ComboBox1.SelectedItem = Nothing
ElseIf ComboBox1.SelectedItem = "USER" Then
n1 = TextBox1.Text
n2 = ComboBox1.SelectedItem
Label2.Text = n1
Label3.Text = n2
Me.Show()
MsgBox("User login")
Panel1.Hide()
Panel2.Hide()
TextBox1.Text = ""
TextBox2.Text = ""
ComboBox1.SelectedItem = Nothing
End If
End If
End Sub