'===================================================================
'                   A_Test
'===================================================================
Public Sub A_Test()
    Dim snap As New Class_Snap
    snap.Test
End Sub