VB 6.0 Type结构体赋值之后有没有清空的函数？

VB 6.0 Type结构体赋值之后有没有清空的函数？

Private Type Test
a As Long
b As Integer
c As String
End Type

Private Sub ClearType(ByRef T As Test)
T.a = 0
T.b = 0
T.c = ""
End Sub

Private Sub Command1_Click()
Dim xx As Test
xx.a = 1
xx.b = 2
xx.c = "test"
ClearType xx
MsgBox xx.c
End Sub

Option Explicit
Private Declare Sub RtlZeroMemory Lib "kernel32" ( _
    ByVal Destination As Long, _
    ByVal Length As Long)
Private Type Test
    Id As Long
    Age As Byte
    Name As String
End Type
Public Sub Demo()
    Dim t As Test
    
    On Error GoTo Err_Demo
    
    t.Id = 1
    t.Age = 20
    t.Name = "Cristin"
    
    GoSub DisplayMsg
    
    RtlZeroMemory VarPtr(t), LenB(t)
    
    GoSub DisplayMsg
    
Err_Demo:
    Exit Sub
    
DisplayMsg:
    MsgBox "Id=" & t.Id & vbCrLf & _
       "Age=" & t.Age & vbCrLf & _
       "Name=" & t.Name
    
    Return
End Sub

没有，可以定义一个空的结构变量，其它的结构变量要清空时可以把空结构变量赋值给它不就行了。