Public Shared Function AReaderInstalled() As Boolean
 
        Dim flag As Boolean = False
        Try
 
            Dim arrStr() As String = Registry.LocalMachine.OpenSubKey( _
              "SOFTWARE\Adobe").GetSubKeyNames()
            Dim i As Integer
 
 
 
            For i = 0 To UBound(arrStr)-1
                If arrStr(i) = "Acrobat Reader" Then
                    flag = True
                    Exit For
                End If
            Next
 
            Return flag
 
        Catch ex As Exception
            txt = "Error in AReaderInstalled  " & Err.Number & "  " & _
              Err.Description
            Msgbox(txt)
            flag = False
        End Try
 
    End Function