aso mehr is das nich ;D ok danke

Added after 11 minutes:

ok er gibt mir ne Debug Aufvorderrung

--> ListView1.Listitems.Add , , "Melt Server ...."

ich habs dann ma mit dem vorschlag von VB 6 versucht


Private Sub Check1_Click()
If Check1.Value = 1 Then
List1.AddItem , , "Melt Server ...."
Else
End If
End Sub


aber dann is er mit der zeile unzufrieden

--> Private Sub Check1_Click()