Пример удаления кнопки Свойства в диалоге Печать - VB

Формулировка задачи:

Пример удаления кнопки Свойства в диалоге Печать (тем кто использует Report). Данный код работает только после компиляции в exe файл. Может, кто ответит, почему так?

Private Declare Function GetNextDlgTabItem Lib 'user32' (ByVal _
hDlg As Long, ByVal hCtl As Long, ByVal bPrevious As Long) As Long
Private Declare Function GetDlgItem Lib 'user32' (ByVal hDlg As _
Long, ByVal nIDDlgItem As Long) As Long
Private Declare Function FindWindow Lib 'user32' Alias 'FindWindowA' _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib 'user32' _
Alias 'PostMessageA' (ByVal hwnd As Long, ByVal wMsg _
As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_CLOSE = &H10
 
Private Sub Command1_Click()
'Кнопка печать
Timer1_Timer
ActiveReport1.PrintReport True 
'В зависимости от используемого Report-а команда вызывающая
'форму 'Печать' может быть другой.
End Sub
 
'На форму необходимо повесить Timer, Interval=1
 
Public Sub Timer1_Timer()
  Dim hW As Long
  'hWnd всегда разный. Определяем hWnd запущеной формы 'Печать'
  hW = FindWindow(vbNullString, 'Печать' & Chr(0))
  If hW > 0 Then
    'Определяем hWnd кнопки 'Свойства'
    Dim hW2 As Long
    Dim hW3 As Long
    Dim I As Long
    hW2 = GetDlgItem(hW, 0)
      For I = 1 To 2
        hW3 = GetNextDlgTabItem(hW, hW2, 0)
        hW2 = hW3
      Next
    'Уничтожаем кнопку и останавливаем Timer
    PostMessage hW3, WM_CLOSE, 0, 0
    Timer1.Enabled = False
  End If
End Sub

Может кто знает как это сделать проще? P.S. Данный код для Winows 98

Решение задачи: «Пример удаления кнопки Свойства в диалоге Печать»

textual
                            Листинг программы 
                        

                            Private Declare Function GetActiveWindow Lib 'user32' () As Long
Private Declare Function GetDlgItem Lib 'user32' (ByVal hDlg As _
Long, ByVal nIDDlgItem As Long) As Long
Private Declare Function PostMessage Lib 'user32' _
Alias 'PostMessageA' (ByVal hwnd As Long, ByVal wMsg _
As Long, ByVal wParam As Long, lParam As Any) As Long
Const WM_CLOSE = &H10
 
Private Sub Command1_Click()
Timer1_Timer
ActiveReport1.PrintReport True 
End Sub
 
Public Sub Timer1_Timer()
  Dim hW As Long
  Dim hW2 As Long
  hW = GetActiveWindow
  hW2 = GetDlgItem(hW, 1025)
  If hW2 Then
    PostMessage hW2, WM_CLOSE, 0, 0
    Timer1.Enabled = False
  End If
End Sub
                        