Limpiar Extructura.

[LeandroA]

buenas una duda que tengo como se limpia una extructura para poder dejarla default

osea

Código [Seleccionar] Expandir

Private Type ElementProperty
    Blond As Boolean
    Italic As Boolean
    Underline As Boolean
    FontFace As String
    FontSize As Integer
    Aling As String
End Type

Dim EP As ElementProperty

bien suponido que ya modifique a EP y quiero recetearlo yo podria poner

Código [Seleccionar] Expandir


EP.Aling = ""
EP.Blond = False
EP.FontFace = ""
EP.FontSize = 0
ETC.

o bien

Código [Seleccionar] Expandir

dim EmptyEP as   ElementProperty

EP =  EmptyEP

Pero se que hay forma mas elegante de hacer esto, creo que con un api se podia pero no recuerdo cual.

Saludos

[cobein]

Una manera podria ser asi

Private Declare Sub ZeroMemory Lib "kernel32.dll" Alias "RtlZeroMemory" (Destination As Any, ByVal Length As Long)

ZeroMemory EP, LenB(EP)

[LeandroA]

Exactamente esa era, Muchas Gracias.