Private myBindingSource As BindingSource
   Private myInstance As New myClass
 
   Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
      myBindingSource = New BindingSource(myInstance, "DataCollection")
      dgvData.DataSource = myBindingSource
   End Sub
 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
      myInstance.LoadData()
      dgvData.Refresh()
   End Sub

Public Class myClass
   Implements System.ComponentModel.INotifyPropertyChanged
 
   Public Event PropertyChanged(ByVal sender As Object, ByVal e As _
     System.ComponentModel.PropertyChangedEventArgs) Implements _
     System.ComponentModel.INotifyPropertyChanged.PropertyChanged
   Private pDataCollection As ComponentModel.BindingList(Of myData)
 
   Public Sub LoadData()
      pDataCollection = New ComponentModel.BindingList(Of myData)
 
      For Each fi As IO.FileInfo In New IO.DirectoryInfo( _
        Environment.GetEnvironmentVariable("TEMP")).GetFiles
         pDataCollection.Add(New myData(fi))
      Next
 
      RaiseEvent PropertyChanged(Me, Nothing)
   End Sub
 
   Public ReadOnly Property DataCollection() As ComponentModel.BindingList(Of _
     myData)
      Get
         Return pDataCollection
      End Get
   End Property
End Class