Private Sub Button1_Click(ByVal sender As System., ByVal e As System.EventArgs) Handles Button1.Click er.SetError(TextBox1, "خطا در ورود اطلاعات") End Sub