Public Class Form3 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click If TextBox1.Text = My.Settings.adminPass Then Form4.Show() Me.Close() Else MsgBox("Introdu Parola de admin corecta") TextBox1.Clear() TextBox1.Focus() End If End Sub Private Sub FlowLayoutPanel1_Paint(sender As Object, e As PaintEventArgs) Handles FlowLayoutPanel1.Paint End Sub End Class