German Klick in ListView kann nicht erkannt werden

ListView1.Initialize("ListView1")
Activity.AddView(ListView1, 0, 0, 100%x, 88%y)
ListView1.SingleLineLayout.ItemHeight = 100
ListView1.SingleLineLayout.Label.TextSize = 15

ListView1.SingleLineLayout.Label.Color = Colors.White
ListView1.SingleLineLayout.Label.TextColor = Colors.Black

#Region  Project Attributes
    #ApplicationLabel: B4A Example
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: unspecified
    #CanInstallToExternalStorage: False
#End Region


#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region


Sub Process_Globals

End Sub


Sub Globals
    Dim ListView1 As ListView
    Dim ListView2 As ListView
End Sub
    

Sub Activity_Create(FirstTime As Boolean)

    ListView1.Initialize("ListView1")
    Activity.AddView(ListView1, 0, 100, 50%x, 88%y)
    ListView1.SingleLineLayout.ItemHeight = 100
    ListView1.SingleLineLayout.Label.TextSize = 15
    ' ListView1.SingleLineLayout.Label.Color = Colors.White
    ' ListView1.SingleLineLayout.Label.TextColor = Colors.Black

    ListView2.Initialize("ListView2")
    Activity.AddView(ListView2, 50%x, 100, 49%x, 88%y)
    ListView2.SingleLineLayout.ItemHeight = 100
    ListView2.SingleLineLayout.Label.TextSize = 15   
    ListView2.SingleLineLayout.Label.Color = Colors.White
    ListView2.SingleLineLayout.Label.TextColor = Colors.Black


    ListView1.AddSingleLine("Anja Wagner")
    ListView1.AddSingleLine("Andreas Bauer")
    ListView1.AddSingleLine("Jenny Berger")
    ListView1.AddSingleLine("Christine Maier")
    ListView1.AddSingleLine("Rainer Deschamps")

    ListView2.AddSingleLine("Anja Wagner")
    ListView2.AddSingleLine("Andreas Bauer")
    ListView2.AddSingleLine("Jenny Berger")
    ListView2.AddSingleLine("Christine Maier")
    ListView2.AddSingleLine("Rainer Deschamps")

End Sub


Sub ListView1_ItemClick (Position As Int, Value As Object)
    Dim Index As Int
    Index = Position + 1
End Sub


Sub ListView2_ItemClick (Position As Int, Value As Object)
    Dim Index As Int
    Index = Position + 1
End Sub


Sub Activity_Resume

End Sub


Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub CLV_ItemClick (Index As Int, Value As Object)

    Dim pnl As Panel
    pnl = CLV.GetPanel(Index)
    pnl.Color = Colors.Blue
    Sleep(100)
    pnl.Color = Colors.White

End Sub