1.你说的是进度条吧?做豪杰需要用滚动条吗?
2.如下: 
 通过将公共对话框控件的Flags属性设置为常量值OFN_ALLOWMULT ISELECT,可以使用户能够选择几个文件以进行工作。可以通过在按住 Ctrl键的同时单击每个文件名称来选中多个文件,这些被选中的文件 名称将被高亮显示。 
  为了使程序能够针对用户所选择的文件进行工作,需要从控件的F ilename属性中提取每个文件的名称。所有被用户选中的文件名称都 被作为一个长字符串而存储在该属性中。每个文件名称之间用一个空 格字符分开。 
  可以使用InStr函数来搜索分界的空格字符,以从公共对话框的Fi lename属性中提取每个文件名称。该InStr函数返回在Filename属性 字符串中空格字符的位置,得到空格字符的位置后,就可以使用Mid函 数来将独立的文件名称从该字符串中移出。 
  样例程序 
  该程序显示了如何提取在公共文件对话框控件中所有被选中的文 件名称。 
  步骤如下: 
  1.在Visual Basic中开始一个新的工程,采用缺省的方法建立For m1。 
  2.在Form1上添加一个公共对话框控件,采用缺省的方法建立Comm onDialog1。 
  3.在Form1上添加一个文本框控件,采用缺省的方法建立Text1。 
  4.在Form1上添加第二个文本框控件,采用缺省的方法建立Text2 。将它的MultiLine 属性设置为True。 
  5.在Form1上添加一个命令按钮控件,采用缺省的方法建立Comand 1。将它的Caption 属性设置为"打开文件对话框"。 
  6.将如下代码添加到Command1的单击事件中: 
  Private Sub Command1_Click() 
  Dim I As Integer 
  Dim Y As Integer 
  Dim Z As Integer 
  Dim FileNames$() 
  Const OFN_ALLOWMULTISELECT = &H200& 
  CommonDialog1.filename = "" 
  CommonDialog1.Filter = "All Files|*.*" 
  CommonDialog1.Flags = OFN_ALLOWMUL- SELECT 
  CommonDialog1.Action = 1 
  CommonDialog1.filename = CommonDi g1. filename & Chr(3 2) 
  Z = 1 
  For I = 1 To Len(CommonDialog1.filename) 
  I = InStr(Z, CommonDialog1.filename, Chr(32)) 
  If I = 0 Then Exit For 
  ReDim Preserve FileNames(Y) 
  FileNames(Y) = Mid(CommonDialog1.filename, Z, I - Z) 
  Z = I + 1 
  Y = Y + 1 
  Next 
  If Y = 1 Then 
  Text1.Text = FileNames(0) 
  Else 
  Text 2.Text = "" 
  For I = 0 To Y - 1 
  If I = 0 Then 
  Text1.Text = FileNames(I) 
  Else 
  Text2.Text = Text2.Text & UCase(FileNames(I)) & Chr$(13) & Chr$(10) 
  End If 
  Next 
  End If 
  End Sub