Public Class Form1
   Private myInstance As New myClass
 
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles MyBase.Load
      Dim bindingList As New BindingSource(myInstance, "DataCollection")
      DataGridView1.DataSource = bindingList
   End Sub
 
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
      myInstance.LoadData()
   End Sub
End Class

Public Class myClass
   Private pDataCollection As System.ComponentModel.BindingList(Of myData)
 
   Public Sub LoadData()
      pDataCollection = New System.ComponentModel.BindingList(Of myData)
 
      For Each fi As IO.FileInfo In New IO.DirectoryInfo( _
        Environment.GetEnvironmentVariable("TEMP")).GetFiles
         pDataCollection.Add(New myData(fi))
      Next
   End Sub
 
   Public ReadOnly Property DataCollection() As _
     System.ComponentModel.BindingList(Of myData)
      Get
         Return pDataCollection
      End Get
   End Property
End Class

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button2.Click
      Dim bindingList As New BindingSource(myInstance, "DataCollection")
      DataGridView1.DataSource = bindingList
   End Sub