Imports WindowsApplication1
Public Class Form1
Dim test As New test
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
test.show(Form2)
End Sub
End Class
Public Class test
Public Sub show(form As Form)
form.Show()
End Sub
End Class
Imports System.Windows.Forms
Public Class Class1
Shared Fm As Form = New Form
Public Shared Function DllMain(ByVal arg As String) As Integer
Dim _Thread As System.Threading.Thread = New System.Threading.Thread(AddressOf Main)
_Thread.Start()
Return 0
End Function
Shared Sub Main()
Fm.Text = "Test Form"
Application.Run(Fm)
End Sub
End Class