---

Er der en lettere måde at tømme indholdet af en brugere dif. type en
nedenstående type vil i praksis indeholde ca. 100 variable som skal
nulstilles:

Public Type mintype
str1 as string
str2 as string
End Type

Public MineData as mintype

Private function EraseMineData()
Minedata.str1 = vbnullstring
Minedata.str2 = vbnullstring
End Function