Making program look professional?

[hipopony66]

Hey, I'm wanting to make my program look more professional & USERPROOF! Here's what I want to do:

The following code populates a listview. I want to have another form with a progress bar that progresses as the list populates, while locking the form the listview is on so the user can't mess with it. Then when the progress bar reaches 100%, that form should close and turn vbModal off so the user can use the main form again. Hope this makes sense. I've never done this so I'm unsure on how to implement it. Any help is extremely appreciated.

I need the progress bar form to be on while the following event is occuring:

For x = 0 To File1.ListCount - 1
    fname = File1.Path & "\" & File1.List(x)
    'Get the MP3 info
    ReadID3Info fname 'Read Id3v1.1 information
    CMp3info.FileName = fname 'Get mp3info such as bitrate
    Set i = ListView1.ListItems.Add(, , File1.List(x))
    i.SubItems(1) = RTrim(GetID3.Artist)
    i.SubItems(2) = RTrim(GetID3.Songname)
    i.SubItems(3) = RTrim(GetID3.Album)
    i.SubItems(4) = RTrim(GetID3.Track)
    i.SubItems(5) = RTrim(GetID3.Genre)
    i.SubItems(6) = Format(FileLen(fname) / 1000000, "#0.00")
    i.SubItems(7) = CMp3info.Frequency
    i.SubItems(8) = CMp3info.BitRate
        strMins = Format(CMp3info.Duration \ 60, "#0")
        strSecs = Format(CMp3info.Duration Mod 60, "0#")
        strLength = strMins & ":" & strSecs
    i.SubItems(9) = strLength
    i.SubItems(10) = fname
DoEvents
Next