如下:
Dim i As Integer
        For i = 0 To i < items.Count
            Dim t As New CartItem
            t = CType(items(i), CartItem)注:cartitem是我自定义的类asp.net 2.0 vb.net