Private Declare Function SearchTreeForFile Lib "imagehlp" (ByVal sRootPath As String, ByVal InputPathName As String, ByVal OutputPathBuffer As String) As Boolean

Private Function FindFile(sFile As String, sRootPath As String) As String
    ' Search for the file specified and return the full path if found
    Dim sPathBuffer As String
    Dim iEnd As Integer
   
    'Allocate some buffer space (you may need more)
    sPathBuffer = Space(512)
   


    If SearchTreeForFile(sRootPath, sFile, sPathBuffer) Then
        'Strip off the null string that will be
        '     returned following the path name
        iEnd = InStr(1, sPathBuffer, vbNullChar, vbTextCompare)
        sPathBuffer = Left$(sPathBuffer, iEnd - 1)
        FindFile = sPathBuffer
    Else
        FindFile = vbNullString
    End If
End Function

Private Sub Command1_Click()
    Picture1.Picture = LoadPicture(FindFile(Text1.Text, "c:\"))
End Sub