Getting feature class names within dataset with vb.net and ArcObjects?

Question

I am totally new to arcobjects. I want to get the feature class names withın a dataset and add them to a listbox. I was able to get the dataset names but i do not know how to iterate through the feature class names within these datasets.

Public Sub GetWorkspace()

 Dim pEnumGxObj As ESRI.ArcGIS.Catalog.IEnumGxObject
 Dim pFCFilter As New ESRI.ArcGIS.Catalog.GxFilterWorkspaces
 Dim pGxDatabase As ESRI.ArcGIS.Catalog.IGxDatabase2
 Dim pGxDialog As New ESRI.ArcGIS.CatalogUI.GxDialog
 Dim pGxObject As ESRI.ArcGIS.Catalog.IGxObject
 Dim pWorkspace As ESRI.ArcGIS.Geodatabase.IWorkspace
 pGxDialog.ObjectFilter = pFCFilter
 If Not pGxDialog.DoModalOpen(My.ArcMap.Application.hWnd, pEnumGxObj) Then Exit Sub
 pGxObject = pEnumGxObj.Next
 If pGxObject Is Nothing Then Exit Sub
 Try
 If TypeOf pGxObject Is ESRI.ArcGIS.Catalog.IGxDatabase2 Then
 pGxDatabase = pGxObject
 pWorkspace = pGxDatabase.Workspace
 System.Windows.Forms.MessageBox.Show(pWorkspace.PathName)
 Else
 System.Windows.Forms.MessageBox.Show("This is likely a shapefile workspace")
 End If
 Dim pEnumDSName = pWorkspace.DatasetNames(esriDatasetType.esriDTAny)
 Dim pSdeDSName = pEnumDSName.Next
 While Not pSdeDSName Is Nothing
 ListBox1.Items.Add(pSdeDSName.Name)
 pSdeDSName = pEnumDSName.Next
 End While
 Catch ex As Exception
 System.Windows.Forms.MessageBox.Show(ex.ToString, "GetWorkspace")
 End Try
End Sub

Answer 1

You need to iterate the datasets to get his containing feature classes. Like this:

While Not pSdeDSName Is Nothing
 Dim pEnumDataset = pSdeDSName.Subsets
 Dim pSubset = pEnumDataset.Next()
 While Not pSubset Is Nothing
 If pSubset.Type = ESRI.ArcGIS.Geodatabase.esriDatasetType.esriDTFeatureClass Then
 ListBox1.Items.Add(pSubset.Name)
 End If
 End While
End While

The code is not tested, I'm used to C#, but you get the idea.