Hi Fazi..
Am getting problem in send message..

If u have Adobe Profession 7.0 means pls try this...
1.Open a Pdf File..

Code:
OnCommand_Click
Dim Lng As Long
Lng = FindWindow(vbNullString, "Adobe Acrobat Professional - [test1.pdf]")
MenuClick Lng, 3, 10
Code:
Sub MenuClick(hwnd As Long, Menu As Long, Item As Long)
Dim hMenu As Long, hSubMenu As Long, L As Long
Dim M As MENUITEMINFO
If hwnd Then
   hMenu = GetMenu(hwnd)
   If hMenu Then
      hSubMenu = GetSubMenu(hMenu, Menu)
      If hSubMenu Then
         M.fMask = MIIM_TYPE Or MIIM_ID
         M.dwTypeData = Space$(128)
         M.cbSize = Len(M)
         M.cch = 128
         L = GetMenuItemInfo(hSubMenu, Item, True, M)
         L = SendMessage(hwnd, WM_COMMAND, M.wID, ByVal 0)
      End If
   End If
End If
End Sub
This code u only gave me yesterday..
This not workling...

Could u say watz the prob...