private function Login(byval userName as string ,byval password as string) as bool dim i as integer on error goto ms: i=1/0 exit functionms: 'here ,write your code to check username and passwordend function
private function Login(byval userName as string ,byval password as string) as bool dim i as integer for i=1 to 1000 next ion error goto ms: i=1/0 exit functionms: dim a as integer for a=1 to 1000 next a 'here ,write your code to check username and passwordend function