Funny Coding

[eoredson]

Or try this:

Code: (Select All)

Type Struc

  x(1 To 10) As Integer

  y As _Bit

  c As Integer

  z As Integer

End Type

Dim Struct1(1 To 10) As Struc

Struct1(1).z = 1

Struct1(10).z = 10

For L = Struct1(1).z To Struct1(10).z

  Struct1(L).c = Struct1(L).z * 10

Next

For L = 1 To 10

  Print Struct1(L).c

Next

End

If it creates an error then comment it out..