Thank u for u reply. I created a project and placed 3 buttons in the form and when i click on them i get the following errors:
code :
Furthermore, how should i display the items that i got from external app to my form if it rurns ?ThanksCode:Private Declare Function installHook Lib "C:\getListView.dll" (ByVal hwnd As Long) As Long Private Declare Function removeHook Lib "C:\getListView.dll" () As Long Private Declare Sub doSelect Lib "C:\getListView.dll" () Private Sub Command1_Click() Dim x As Long Dim targetHwnd As Long 'you need the targets window handle x = installHook(targetHwnd) End Sub Private Sub Command2_Click() Call doSelect 'this lets you select all the items after calling installHook End Sub Private Sub Command3_Click() Dim x As Long x = removeHook() 'removes the hook End Sub





Reply With Quote