VB.NET DLL Skeleton

---make.cmd---
@echo off
for /f "usebackq" %%d in (`dir/w %WINDIR%\Microsoft.NET\Framework ^| findstr [v`) do set dotnetdir=%%d
set dotnetdir=%dotnetdir:[=%
set dotnetdir=%dotnetdir:]=%
rem echo %dotnetdir%
set VBCOMPILER=%windir%\Microsoft.NET\Framework\%dotnetdir%\vbc.exe

%VBCOMPILER% /target:library /platform:anycpu /out:MyModule.dll MyModule.vb
%VBCOMPILER% /target:winexe /platform:anycpu /r:MyModule.dll /main:Form1 /out:test.exe Main.vb
pause
---end make.cmd---

---MyModule.vb---
Imports System

Public Class MyModule
	Private str As String

	Public Sub New()
		str = "new"
	End Sub

	Public Function SetStr(s As String) As Integer
		str = s
		Return 0
	End Function

	Public Function GetStr() As String
		Return str
	End Function
End Class
---end MyModule.vb---

---Main.vb---
Imports System
Imports System.Windows.Forms

Public Class Form1
	Inherits Form

	Public TextBox1 As TextBox
	Public WithEvents Button1 As Button
	Public WithEvents Button2 As Button
	Public MyModule1 As MyModule

	Public Sub New()
		MyModule1 = New MyModule

		Me.Width = 335
		Me.Height = 100
		Me.Text = "sample"

		TextBox1 = New TextBox
		TextBox1.Top = 10
		TextBox1.Left = 10
		TextBox1.Width = 150
		Me.Controls.Add(TextBox1)

		Button1 = New Button
		Button1.Top = 10
		Button1.Left = 165
		Button1.Text = "Set"
		Button1.Width = 70
		Me.Controls.Add(Button1)

		Button2 = New Button
		Button2.Top = 10
		Button2.Left = 240
		Button2.Text = "Get"
		Button2.Width = 70
		Me.Controls.Add(Button2)

	End Sub

	Private Sub Button1_Click(Byval sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
		MyModule1.SetStr(TextBox1.Text)
	End Sub

	Private Sub Button2_Click(Byval sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
		MessageBox.Show(MyModule1.GetStr())
	End Sub

	Shared Sub Main()
		Application.EnableVisualStyles()
		Application.Run(New Form1)
	End Sub
End Class
---end Main.vb---