>>I am getting Overflow error message while running GetDesktopWindow.
>>
>>Private Declare Function GetDesktopWindow Lib "user32" () As Long
>>
>> Function StartDoc(DocName As String) As Integer
>> Dim Scr_hDC As Integer
>> Scr_hDC = GetDesktopWindow()
>> StartDoc = ShellExecute(20, "Open", DocName, "", "C:\", SW_SHOWNORMAL)
>> End Function
>>
>>It works if I comment it out, but sometimes act strange.
>>Please help!
>
>Wait, shouldn't Scr_hDC be a Long type also?

Thank you , it was dumb!
But now I ran into different problem.
I run all this focuments form ListView.

Private Sub lvFileList_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim sFileName As String
Dim r As Long, msg As String
sFileName = Item.Text
r = StartDoc(sFileName)
If r<=32 Then
'Error
Else
'Ok
End If
End Sub

It opens a document. No problem there. When I come back to the listview file icon so to speak "attached" to my cursor. So when I move a cursor everything is ListView moves. It's very odd. It doesn't happend every time but often, and every time I am running Word or Excell document after Notepad document.
Is anything I need to realease after running the document? Any idea?