Private Sub lstBehandlungsformen_Click()
Dim temp As String
Dim i As Integer
 
temp = ""
 
For i = 0 To 25
    If lstBehandlungsformen.Selected(i) = True Then
    lstBehandlungsformen.ListIndex = i
    temp = temp + lstBehandlungsformen.Text
    End If
Next i
End Sub