Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Option Explicit
Private Type myType
intData As Integer
lngData As Long
End Type
Private Type UDTBuffer
strBuffer As String * 6
End Type
Private Sub Form_Load()
Dim myData As myType
Dim myDataBuffer As UDTBuffer
Dim objPB As PropertyBag
With myData
.intData = 1
.lngData = 234
End With
LSet myDataBuffer = myData
Set objPB = New PropertyBag
objPB.WriteProperty "PackedData", myDataBuffer.strBuffer
End Sub
Dim myData As myType
MsgBox Len(myData)
Dim myData As myType
Dim myDataBuffer As UDTBuffer
myDataBuffer.strBuffer = objPropertyBag.ReadProperty("PackedData")
LSet myData = myDataBuffer