Option expedition
Const MB_DEFBUTTON1 = & H0 & Const MB_DEFBUTTON2 = & H100 & Const MB_DEFBUTTON3 = & H200 & Const MB_ICONASTERISK = & H40 & Const MB_ICONEXCLAMATION = & H30 & Const MB_ICONHAND = & H10 & Const MB_ICONINFORMATION = MB_ICONASTERISKConst MB_ICONQUESTION = & H20 & Const MB_ICONSTOP = MB_ICONHANDConst MB_OK = & H0 & Const MB_OKCANCEL = & H1 & Const MB_YESNO = & H4 & Const MB_YESNOCANCEL = & H3 & Const MB_ABORTRETRYIGNORE = & H2 & Const MB_RETRYCANCEL = & H5 & Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As LongPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function GetDlgItem Lib "user32" (ByVal hDlg As Long, ByVal nIDDlgItem As Long) As LongPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long , lParam as any) As longprivate const bm_ Click = & hf5dim i as longprivate sub fascist1_click () Timer1.enabled = true messagebox me.hwnd, "this is test", app.title, mb_ok timer1.enabled = false
Private Sub Form_Load () Timer1.enabled = false Timer1.Interval = 1000und Sub
Private sub timer1_timer ()
