Option Explicit

    Sub clickHandler()

        Dim i
        Dim strParentId
        Dim objChild
        Dim objParentImage
        Dim sDisplay
        Dim sImage

        '== Identify the item clicked
        strParentId = Window.Event.SrcElement.ID
        If Left(strParentId, 1) = "M" Then
            '== Identify child DIV and parent IMG objects
            Set objChild = Document.All("C" & Mid(strParentId, 3))
            Set objParentImage = Document.All("MI" & Mid(strParentId, 3))
            '== manipulate their attributes
            If objChild.Style.Display = "none" Then
                objChild.Style.Display = ""
                objParentImage.Src = "http://www.indiaeducation.net/apexbodies/images/bullet-minus.gif"
            Else
                objChild.Style.Display = "none"
                objParentImage.Src = "http://www.indiaeducation.net/apexbodies/images/bullet-plus.gif"
            End If
            Set objChild = Nothing
            Set objParentImage = Nothing
        End If
    End Sub
	Sub clickHandler1()

        Dim i
        Dim strParentId
        Dim objChild
        Dim objParentImage
        Dim sDisplay
        Dim sImage

        '== Identify the item clicked
        strParentId = Window.Event.SrcElement.ID
        If Left(strParentId, 1) = "I" Then
            '== Identify child DIV and parent IMG objects
            Set objChild = Document.All("J" & Mid(strParentId, 3))
            Set objParentImage = Document.All("II" & Mid(strParentId, 3))
            '== manipulate their attributes
            If objChild.Style.Display = "none" Then
                objChild.Style.Display = ""
                objParentImage.Src = "http://www.indiaeducation.net/apexbodies/images/bullet-minus.gif"
            Else
                objChild.Style.Display = "none"
                objParentImage.Src = "http://www.indiaeducation.net/apexbodies/images/bullet-plus.gif"
            End If
            Set objChild = Nothing
            Set objParentImage = Nothing
        End If
    End Sub