Find Something dengan vb6

Form
Option Explicit
Private
Declare Function GetWindowText Lib “user32″ Alias “GetWindowTextA”
(ByVal hWnd As Long, ByVal lpString As String, ByVal cch As Long) As
Long
Private Sub cmdActivate_Click()    Dim nRet As Long
   Dim Title As String
   nRet =
AppActivatePartial(Trim(txtTitle.Text), _          
Val(frmMethod.Tag), CBool(chkCase.Value))    If nRet Then      
lblResults.Caption =