โค้ดแบบนี้ใช้โค้ดอะไรครับ โค้ดพอเรากด Button1 และ form จะถูกล็อก Disabled Control เลยอ่ะครับกดอะไรไม่ใด้เลยตามรูป

Private Sub button1_Click(sender As Object, e As System.EventArgs) Handles button1.Click
   
	Me.txtUsername.Disabled = True

End Sub

	Me.txtUsername.Enabled = False
	Me.txtPassword.Enabled = False
	Me.btnLogin.Enabled = False

    Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
	
	Me.txtUsername.Enabled = False
	Me.txtPassword.Enabled = False
	Me.btnLogin.Enabled = False

        Dim objConn As New MySqlConnection
        Dim objCmd As New MySqlCommand
        Dim strConnString, strSQL As String

        strConnString = "Server=localhost;User Id=root; Password=root; Database=database; Pooling=false"
        objConn.ConnectionString = strConnString
        objConn.Open()

        Dim intNumRows As Integer
        strSQL = "SELECT COUNT(*) FROM member WHERE Username = '" & Me.txtUsername.Text & "' AND Password = '" & Me.txtPassword.Text & "' "
        objCmd = New MySqlCommand(strSQL, objConn)
        intNumRows = objCmd.ExecuteScalar()

        If intNumRows > 0 Then
            Dim frm As New frmMain
            frm._strUser = Me.txtUsername.Text
            frm.LoadInfor()
            frm.Show()

            Me.Hide()
        Else
            MessageBox.Show("Username or Password Incorrect")
        End If

        objConn.Close()
        objConn = Nothing

    End Sub

Dim ctrl As Control
For Each ctrl In Me.Controls
	ctrl.Enabled = False
Next