16 lines
506 B
Text
16 lines
506 B
Text
Public Sub Main()
|
|
|
|
Print "Boolean =\t " & SizeOf(gb.Boolean)
|
|
Print "Byte =\t\t " & SizeOf(gb.Byte)
|
|
Print "Short =\t\t " & SizeOf(gb.Short)
|
|
Print "Integer =\t " & SizeOf(gb.Integer)
|
|
Print "Single =\t " & SizeOf(gb.Single)
|
|
Print "Long =\t\t " & SizeOf(gb.Long)
|
|
Print "Float =\t\t " & SizeOf(gb.Float)
|
|
Print "Date =\t\t " & SizeOf(gb.Date)
|
|
Print "String =\t " & SizeOf(gb.String)
|
|
Print "Object =\t " & SizeOf(gb.Object)
|
|
Print "Pointer =\t " & SizeOf(gb.Pointer)
|
|
Print "Variant =\t " & SizeOf(gb.Variant)
|
|
|
|
End
|