Haven't you looked carefully at the CreateListItem routine !?
Your routine declaratoion:
Sub CreateListItem(Text As String, Width As Int, Height As Int) As Panel
@mangojacks' declaration:
Sub CreateListItem(values() As String, Width As Int, Height As Int) As Panel
You also need to remove this line in Dim values() As String in Globals !