Protected Sub btnForgetPassword_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnForgetPassword.Click
Try
If Me.txtUsername.Text.Length > 0 Then
Dim oForget As New ForgetPassword()
If oForget.SendNewPassword(txtUsername.Text) Then
ramLogin.Alert("ระบบทำการส่งรหัสผ่านใหม่ไปที่อีเมลล์ของท่านแล้ว")
End If
Else
ramLogin.Alert("กรุณากรอก Username")
End If
Catch ex As Exception
ramLogin.Alert(ex.Message.Replace("'", "''"))
End Try
End Sub
End Class