请问 VB 的自定义类型，如何以参数传递

Question

请问 VB 的自定义类型，如何以参数传递?

Answer 1

Private Type student
     Name As String
     Num As Integer
End TypePrivate Sub Form_Load()
    Dim std As student
    std.Name = "jack"
    std.Num = 1
    MsgBox std.Name
    Call changeName(std)
    MsgBox std.Name
    Unload Me
End SubPrivate Sub changeName(std As student)
    std.Name = "jim"
End Sub

Answer 2

Private Type Myinfo
    Myname As String * 10
    Myage  As Byte
End Type
Dim My As Myinfo
Private Sub Command1_Click()
  Call sub1(My)
  Debug.Print My.Myname
  Debug.Print My.Myage
End SubPrivate Sub sub1(x As Myinfo)
   x.Myname = "MSDN"
   x.Myage = x.Myage + 10
End Sub
Private Sub Form_Load()
   My.Myname = "CSDN"
   My.Myage = 5
End Sub