39 lines
583 B
Plaintext
39 lines
583 B
Plaintext
Type DeepCopy
|
|
value1 As Integer
|
|
value2 As String * 1
|
|
value3 As String
|
|
value4 As Boolean
|
|
value5 As Double
|
|
End Type
|
|
Dim As DeepCopy a, b
|
|
|
|
a.value1 = 10
|
|
a.value2 = "A"
|
|
a.value3 = "OK"
|
|
a.value4 = True
|
|
a.value5 = 1.985766472453666
|
|
|
|
b = a
|
|
a.value1 = 20
|
|
a.value2 = "B"
|
|
a.value3 = "NOK"
|
|
a.value4 = False
|
|
a.value5 = 3.148556644245367
|
|
|
|
Print !"Valor de \"a\":"
|
|
Print a.value1
|
|
Print a.value2
|
|
Print a.value3
|
|
Print a.value4
|
|
Print a.value5
|
|
|
|
Print !"\nValor \"b\":"
|
|
With b
|
|
Print .value1
|
|
Print .value2
|
|
Print .value3
|
|
Print .value4
|
|
Print .value5
|
|
End With
|
|
Sleep
|