1
Any ideas?
Here is my code:
class1.vb
Expand|Select|Wrap|Line Numbers
- Imports System.Windows.Forms
- Imports System.Threading
- Public Class Class1
- Public Shared form1 As New Form1
- Shared Sub Main(ByVal Args() As String)
- Dim t2 As Thread
- t2 = New Thread(AddressOf screen)
- t2.Start()
- End Sub
- Shared Sub screen()
- form1.ShowDialog()
- End Sub
- End Class
Expand|Select|Wrap|Line Numbers
- Public Class Form1
- Inherits System.Windows.Forms.Form
- #Region " Windows Form Designer generated code "
- Public Sub New()
- MyBase.New()
- 'This call is required by the Windows Form Designer.
- InitializeComponent()
- 'Add any initialization after the InitializeComponent() call
- End Sub
- 'Form overrides dispose to clean up the component list.
- Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
- If disposing Then
- If Not (components Is Nothing) Then
- components.Dispose()
- End If
- End If
- MyBase.Dispose(disposing)
- End Sub
- 'Required by the Windows Form Designer
- Private components As System.ComponentModel.IContainer
- 'NOTE: The following procedure is required by the Windows Form Designer
- 'It can be modified using the Windows Form Designer.
- 'Do not modify it using the code editor.
- Friend WithEvents AxWebBrowser1 As AxSHDocVw.AxWebBrowser
- Friend WithEvents Button1 As System.Windows.Forms.Button
- <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
- Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
- Me.AxWebBrowser1 = New AxSHDocVw.AxWebBrowser
- Me.Button1 = New System.Windows.Forms.Button
- CType(Me.AxWebBrowser1, System.ComponentModel.ISupportInitialize).BeginInit()
- Me.SuspendLayout()
- '
- 'AxWebBrowser1
- '
- Me.AxWebBrowser1.Enabled = True
- Me.AxWebBrowser1.Location = New System.Drawing.Point(48, 24)
- Me.AxWebBrowser1.OcxState = CType(resources.GetObject("AxWebBrowser1.OcxState"), System.Windows.Forms.AxHost.State)
- Me.AxWebBrowser1.Size = New System.Drawing.Size(300, 150)
- Me.AxWebBrowser1.TabIndex = 0
- '
- 'Button1
- '
- Me.Button1.Location = New System.Drawing.Point(440, 72)
- Me.Button1.Name = "Button1"
- Me.Button1.TabIndex = 1
- Me.Button1.Text = "Button1"
- '
- 'Form1
- '
- Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
- Me.ClientSize = New System.Drawing.Size(584, 272)
- Me.Controls.Add(Me.Button1)
- Me.Controls.Add(Me.AxWebBrowser1)
- Me.Name = "Form1"
- Me.Text = "Form1"
- CType(Me.AxWebBrowser1, System.ComponentModel.ISupportInitialize).EndInit()
- Me.ResumeLayout(False)
- End Sub
- #End Region
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- 'Me.AxWebBrowser1.Navigate("http://www.ibm.com")
- End Sub
- End Class
