Hi,'try following console demo:
Imports System.Windows.Forms
Module Module1
Sub Main()
Try
Dim c As New Demo
c.Execute()
Catch ex As Exception
Console.WriteLine(ex.ToString)
End Try
Console.WriteLine("Continue enter key")
Console.ReadKey()
End Sub
Friend Class Demo
Friend Sub Execute()
Application.EnableVisualStyles()
Application.SetCompatibleTextRenderingDefault(False)
Application.DoEvents()
Application.Run(New Form1()) ' instantiate new Form and show it '
End Sub
End Class
Friend Class Form1
Inherits Form
Private Label1 As New Label() With {.Text = "Form 1 loaded"}
Public Sub New()
AddHandler Me.Load, Sub()
Me.Controls.Add(Label1)
End Sub
End Sub
End Class
End Module