aspm_main.ItemLabelProperties.TextColor = xui.Color_Black
For i = 0 To 4 -1
If i Mod 2 = 0 Then
aspm_main.ItemLabelProperties.ItemBackgroundColor = xui.Color_ARGB(255,233, 233, 233)
Else
aspm_main.ItemLabelProperties.ItemBackgroundColor = xui.Color_White
End If
aspm_main.AddMenuItem("Test_" & (i +1),"item_" & i)
Next