vb TYPE类型的复制问题？

Question

Private Type TSystemData
    Company As String
    User As String
    FileName As String
    MouseWheel As Boolean
    ToolBarVisible As Boolean
    ModuleExplain As String
    FunctionDescription As String
End TypePrivate Sub Command1_Click()
    Dim a As TSystemData
    Dim b As TSystemData
    
    a.Company = "盛大软件开发工作室"
    a.User = "ChengSoft"
    a.FileName = App.Path & "\VBConfig.ini"
    a.MouseWheel = True
    a.ToolBarVisible = True
    a.ModuleExplain = "123"
    a.FunctionDescription = "321"
    
    '//请问有没有快点的复制方法，把a对象复制到b
End Sub