جزاك الله على المساعدة
حاولت استخدمها ولكن الاكسس ما يقبل الكود
Option Compare Database
Declare PtrSafe SetTimer Lib "user32" (ByVal hwnd _As Long, ByVal nIDEvent As Long, ByVal uElapse _Declare PtrSafe KillTimer Lib "user32" _As Long, ByVal lpTimerFunc As Long) As Long (ByVal hwnd As Long, ByVal nIDEvent As Long) _Alias "FindWindowExA" (ByVal hwndParent As _As Long Declare PtrSafe FindWindowEx Lib "user32" _ Long, ByVal hWndChildAfter As Long, ByVal _Lib "user32" Alias "SendMessageA" (ByVal _lpClassName As String, ByVal lpWindowName _ As String) As Long Declare PtrSafe Sendmessagebynum _
hwnd As Long, ByVal wMsg As Long, ByVal _ wParam As Long, ByVal lParam As Long) _ As Long Const EM_SETPASSWORDCHAR = &HCC Public str_Title$, TimerId&