﻿ 'just created this file

Event Init()
  MsgBox("Init Me=" & Me)  
End Event
 
Public Sub geht()
  MsgBox("Me=" & Me)
End Sub
 
Event Finalize()
  WriteString("myclass.Finalize " & Me, Desktop.DesktopLocation & "/myclassFinalize.txt")
  MsgBox("myclass.Finalize ")' & Me)
End Event
