Imports System
Imports System.Xml
Imports System.Data
Imports Microsoft.VisualBasic
Imports System.Drawing
Imports System.Windows.Forms
'imports aditionals here
Namespace FDT 'no edit
Class ModuleFDT 'no edit
'global variable here
dim t as new form
dim withevents w as new button
Sub Main() 'no edit
'code initialization here
w.text= "test"
t.text="form de prueba"
t.controls.add(w)
t.show()
End Sub 'no edit
'rest code here,subs,functions
private sub w_click(byval sender as object,byval e as system.eventargs) handles  w.click
msgbox("soy un mensaje generado por 1 evento")
end sub
End Class 'no edit
End Namespace 'no edit