Visual Basic

Dim Drive As String = "D:\"
If My.Computer.FileSystem.GetDriveInfo(Drive).IsReady = True Then
  For Each File As String In My.Computer.FileSystem.GetFiles(Drive, FileIO.SearchOption.SearchAllSubDirectories)
      ListBox1.Items.Add(File)
  Next
End If

Marc Soleda wrote:

final string would be

Dim StrLength as Int32  = 10
Dim myString = "abcde"
Dim addSpace as Int32  = 10 - myString.length
Dim I as Int32
    For I = 1 to addspace
        mystring = mystring + " "
    next 

strABCDE.PadRight(10)

Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged
   ProgressBar1.Maximum = e.MaximumProgress
   ProgressBar1.Value = e.CurrentProgress

End Sub

sub But_click()
     dim Cf as new ChForm
     Cf.show
end sub

Public Class MainForm As Form

  Public Cf as ChForm

  sub But_click()     
    Cf  = new ChForm     
    Cf.show

  end sub

End Class

Public Class MainForm As Form

  Public Cf as ChForm
  Private mNameData As String

  sub But_click()     
    Cf  = new ChForm     
    Cf.show

    mNameData - Cf.NameData()

  end sub

End Class

Public Class ChForm As Form

  Public Property NameData() As String
    Get
      Return txtName.Text

    End Get

    Set (value as String)
      txtName.Text = value

    End Set

  End Property

End Class