Caption = "To open this feed in your default browser, click here."
Height = 195
Left = 7020
TabIndex = 14
Top = 8460
Width = 4545
End
Begin VB.Image ImgURL
Height = 240
Left = 11640
Picture = "frmMain.frx":2E54
Top = 8445
Width = 240
End
Begin VB.Label lblSubscribed
Caption = "Subscribed Feeds"
Height = 255
Left = 80
TabIndex = 13
Top = 1410
Width = 2055
End
Begin VB.Label lblCategory
Caption = "Category(s)"
Height = 195
Left = 80
TabIndex = 12
Top = 855
Width = 1305
End
Begin VB.Label lblDescription
Caption = "Description"
Height = 255
Left = 4110
TabIndex = 11
Top = 855
Width = 945
End
Begin VB.Label lblHeadlines
Caption = "Feed headlines"
Height = 165
Left = 80
TabIndex = 10
Top = 4320
Width = 1935
End
Begin VB.Menu File
Caption = "&File"
Begin VB.Menu Close
Caption = "&Close"
End
End
Begin VB.Menu Help
Caption = "&Help"
Begin VB.Menu About
Caption = "&About"
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim oRSS As MSXML2.DOMDocument
Dim oItemList() As MSXML2.IXMLDOMNode
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long