Dialog Login Usibility

Usefulness of this dialogue is to provide a login dialog that can be used repeatedly in every project with a short code without copy and paste with a flexible and stable function

Dim lgn As New SEMICO_Dialog.DialogLogin(fnc.GetConectionString, "Passwrd", "nama", "password")
lgn.ShowDialog()
If lgn.HASVALUE = False Then
   End
End If