Private Sub Form_Load()
 
List2.AddItem ("bis 4,4 - Multiplikant pro Punkt: 0,1")
List2.AddItem ("4,5 bis 11,4 - Multiplikant pro Punkt: 0,2")
List2.AddItem ("11,5 bis 18,4 - Multiplikant pro Punkt: 0,3")
List2.AddItem ("18,5 bis 26,4 - Multiplikant pro Punkt: 0,4")
List2.AddItem ("26,5 bis 36,0 - Multiplikant pro Punkt: 0,5")
List2.AddItem ("37,0 bis 54,0 - Multiplikant pro Punkt: 1,0")
End Sub

Private Sub List2_DblClick()
With List2
    If .Listindex > -1 Then
      txtHcp.Text = .List(.Listindex)
      .Enabled = False
    End If
  End With
End Sub