Findnextfile and hide file

Good  afternoon
Try to hook the FindNextFileW to hide a filke from Explorer.
Hook sucessfully .
Try to build the Callback but not enough luck for it 
There is someone to give me some help to find the way ?
Thanks for the time

code
Public Function NowFindnextfile_call(ByVal hFindFile As Long, pFindFileData As WIN32_FIND_DATA) As Long
If (pFindFileData.cFileName) = "TEST.EXE" Then
NowFindnextfile_call = -1
End If
End Function
in my screenshot hook the W and A also 
/upload/2013122123/screen0wa.jpg


p.s Someone point me how to solve this  
thanks guys    --------------------编程问答-------------------- up...... --------------------编程问答-------------------- --------------------编程问答-------------------- up --------------------编程问答--------------------  虚拟机么？  竟然用英文系统。。   

另 
LZ  不知道是哪里的  跑到这里提问来了。。。。 --------------------编程问答-------------------- --------------------编程问答--------------------      hello ntaryl   iam xacker  hoho

R3 hook kernel32 "FindNextFileW"  
r0 hook "NtxxxxFile"

vb can't do this --------------------编程问答--------------------

补充：VB ,  API