[VB6] Controllo ListView e disposizione elementi su unica colonna

[x69asterix]

  If Label3.Caption > disco Then
  MsgBox "Non posso scrivere su un disco " & disco & " MB " & Label3.Caption, vbCritical, "Errore"
  Label3.Caption = Label3.Caption - FileLen(SelectFileDialog.FileName) / 1000000
  Label3.Caption = CInt(Label3.Caption)
  Label5.Caption = CInt(Label3.Caption) / 40
  Label5.Caption = CInt(Label5.Caption)
     Exit Sub
   Else
    DoEvents
 Label5.Caption = (Label3.Caption) / 40
 Label5.Caption = CInt(Label5.Caption) + 3
 xpProgressBar1.Value = (Label3.Caption / disco) * 100
 xpProgressBar1.Text = "MB " & Label3.Caption & " di " & disco
 edtFileName.View = lvwList 
 edtFileName.ListItems.Add , , SelectFileDialog.FileName, 1, 1 
End If
 edtFileName.View = lvwSmallIcon 
  Burn.Enabled = True
  Exit Sub