imports codedomTest1, microsoft.visualbasic, system, system.windows, system.windows.forms
module Plugin
	Dim F as MyForm
	sub Main()
		if F is nothing then
			F = new MyForm	
		end if
		if f.isdisposed = false then
			f.show
			f.Activate
		else
			f = new MyForm
			f.show
		End if
	end sub
end module

Class MyForm 
	inherits Form
	Dim withevents But1 as Button
	public sub New()
		InitializeComponents()
	end sub
	
	Sub InitializeComponents()
		me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedToolWindow 
		me.maximizebox = false
		me.text = "This window is created by the compiled plugin!"
		But1 = new Button
		But1.Left = 10
		But1.top = 20
		but1.Text = "Hello World!"
		But1.Visible = true
		But1.Parent = Me
	end Sub
	
	Sub ButClick(Sender as object, E as system.EventArgs) handles But1.Click
		Msg("Clicked!")
	End Sub
	Sub Form_disposed(sender as object, E as system.EventArgs) handles me.disposed
		WriteInConsole("The form has been disposed")
	end sub
end class