Private Type Aset a As String * 8 b As String * 10 c As String * 20 End Type
Private Type Bset d As String * 38 End Type
Private Sub Command1_Click() Dim e As Aset Dim f As Bset f.d = "12345678" & "ABCDEFGHIJ" & "あいうえおかきくけこ" LSet e = f Me.Label1.Caption = e.a Me.Label2.Caption = e.b Me.Label3.Caption = e.c End Sub