Option Explicit
 
Private Sub Form_Load()
  Dim Entry As ListItem
 
  ListView1.LabelEdit = False
  ListView1.View = lvwReport
  ListView1.ColumnHeaders.Add , , "Spalte 1"
  ListView1.ColumnHeaders.Add , , "Spalte 2"
 
  Set Entry = ListView1.ListItems.Add(, , "Eintrag 1")
  Entry.SubItems(1) = "Sub 1"
  Timer1.Enabled = False
  Timer1.Interval = 50
End Sub
 
Private Sub ListView1_DblClick()
  ListView1.StartLabelEdit
  Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
  Timer1.Enabled = False
  ListView1.StartLabelEdit
End Sub

Viel Spass,
R@lf