How to write a genecric function for sync operation

[supputuri]

Hi Martin,

Pleae find the below LOC and let me know it's OK with you.

Code:

'LOC to click on the button
msgbox  Click (Browser("Google").Page("Google"),"WebButton","Google Search")

'LOC to click on the Link
msgbox  Click (Browser("Google").Page("Google"),"Link","Preferences")

'LOC to click on the Image
msgbox  Click (Browser("Google").Page("Google"),"WebButton","ImageName")

Function Click (objPath,strObjType,strobj)
   Click =True
    Select  Case strObjType
        Case "WebButton"
            objPath.WebButton(strobj).click
        Case "Link"
            objPath.Link(strobj).click
        Case "ImageButton"
            objPath.Image(strobj).click
        Case Else
                Click = False
    End Select
End Function

Let me know if you need any more info.