状态条的问题 

我想在在下面的代码后面加一段代码 用来显示 点击  “保存” 按钮后， 因为保存的时间比较长 所以想 显示一下保存 进度。

代码该怎么写呢？  非常非常感谢！

我是想在导入图片的同时 把图片名称 改成 bbb （用bbb列的值 做图片的名称。）

试着改了一下，还是不好用，所以还要请教各位师兄了

Dim Val As String
For Each File As String In FileSys.GetFiles("C:\\Users\\trj\\Desktop\\图片\\")
Dim f As Io.FileInfo = FileSys.GetFileInfo(File)
    Dim r As Row = Tables("newmoo_product").addnew
    Val = Val & "|" & f.Name
Dim Values() As String
Values = Val.split("|")
For Index As Integer = 0 To Values.Length - 1
   \' Dim r As Row = Tables("newmoo_product").addnew
    r("ppp") = Values(Index)
Next

Dim ftp1 As New FtpClient
ftp1.Host="tangrenjie.net"
ftp1.Account = "ftp"
ftp1.Password = "zhengbe"
ftp1.UTF8 = True

Dim Str1 As String
Str1 = DataTables("newmoo_product").GetComboListString("bbb")

    If ftp1.Upload(file, "upfile1\\pic\\aaa\\" & str1 ) = False Then
        Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        Return
    End If
  \'  Dim f As Io.FileInfo = FileSys.GetFileInfo(File)
  \'  Dim r As Row = Tables("newmoo_product").AddNew
    \'r("bbb") = f.Name
Next

新时代，新思维。

精确显示进度，大可不必。

弄个gif动画。

或者更简单的，状态栏显示：正在保存.......