VB.net - Messagebox.show() dispalys empty dialog box

I have a strange problem with messagebox in vb.net. I am calling messagebox.show("hello") on the click of a button. The application gets compile without any errors. but when I run the application I get the meassge box with empty dialog box.
The message string as well as the button captions are displayed empty

Even the msgbox("hello") gives the same problem.

I tried importing System.Micosoft.visulabasic too. but no luck...

I do not know what is missing here.

please help !!

IngridKAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Mikal613Commented:
try

MsgBox("Hello")
0
Mikal613Commented:
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 Button1 As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.Button1 = New System.Windows.Forms.Button
        Me.SuspendLayout()
        '
        'Button1
        '
        Me.Button1.Location = New System.Drawing.Point(171, 48)
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(75, 42)
        Me.Button1.TabIndex = 0
        Me.Button1.Text = "Button1"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(292, 273)
        Me.Controls.Add(Me.Button1)
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.ResumeLayout(False)

    End Sub

#End Region

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MsgBox("hello")
    End Sub
End Class
0
Mikal613Commented:
are you using a web form?
0
Cloud Class® Course: Microsoft Azure 2017

Azure has a changed a lot since it was originally introduce by adding new services and features. Do you know everything you need to about Azure? This course will teach you about the Azure App Service, monitoring and application insights, DevOps, and Team Services.

Mike TomlinsonMiddle School Assistant TeacherCommented:
Simliar problem here:
http://www.experts-exchange.com/Programming/Programming_Languages/Dot_Net/VB_DOT_NET/Q_21141385.html

Are you running McAfee VirusScan Enterprise 8.0 (New Version) on them?

~IM
0
Mikal613Commented:
if so

there's no keyword for displaying a MessageBox in ASP.NET. You have to register a ClientScriptBlock and Invoke this. Here's an exampla page


Code:<%@ Page Language="C#" %>
<script runat="server">
   void Button1_Click(object sender, EventArgs e)
   {
       string message = "MessageBoxTest";
       string alertScript = "<script language=JavaScript>";
       alertScript += "alert('" +message +"');";
       alertScript += "</script" +">";

       if (!IsClientScriptBlockRegistered("alert"))
           this.RegisterClientScriptBlock("alert", alertScript);
   }

</script>
<html>
<head>
</head>
<body>
   <form runat="server">
       <asp:Button id="Button1" onclick="Button1_Click" runat="server" Text="Button"></asp:Button>
   </form>
</body>
</html>

There also exists a free MessageBox Server-Component. You'll find it here
http://www.orangegray.net/de/default.aspx
0
IngridKAuthor Commented:
I have tried msgbox("Hello") too. and  no luck...same problem.


No, I am not using web form. It's a window form.  
0
Mikal613Commented:
can you post your code maybe your missing something

or you can post my whole project that i pasted above
0
IngridKAuthor Commented:
Here is my code. I have tried the ones commented too.  It's on simple click event

Imports Microsoft.VisualBasic


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 Label1 As System.Windows.Forms.Label
    Friend WithEvents Panel1 As System.Windows.Forms.Panel
    Friend WithEvents lblSiNumber As System.Windows.Forms.Label
    Friend WithEvents cmb_sinumber As System.Windows.Forms.ComboBox
    Friend WithEvents Label2 As System.Windows.Forms.Label
    Friend WithEvents cmb_component As System.Windows.Forms.ComboBox
    Friend WithEvents lblManufacturer As System.Windows.Forms.Label
    Friend WithEvents lblManufValue As System.Windows.Forms.Label
    Friend WithEvents Label3 As System.Windows.Forms.Label
    Friend WithEvents lblDeviceDescValue As System.Windows.Forms.Label
    Friend WithEvents lblInHouse As System.Windows.Forms.Label
    Friend WithEvents lblInHouseValue As System.Windows.Forms.Label
    Friend WithEvents tabCtrl As System.Windows.Forms.TabControl
    Friend WithEvents tabNewSample As System.Windows.Forms.TabPage
    Friend WithEvents tabPartsProcure As System.Windows.Forms.TabPage
    Friend WithEvents tabTechnicalData As System.Windows.Forms.TabPage
    Friend WithEvents tabMicrophoto As System.Windows.Forms.TabPage
    Friend WithEvents tabMarketing As System.Windows.Forms.TabPage
    Friend WithEvents Label5 As System.Windows.Forms.Label
    Friend WithEvents lblTransistorgateLen As System.Windows.Forms.Label
    Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
    Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
    Friend WithEvents lblMeasuredFeatures As System.Windows.Forms.Label
    Friend WithEvents txtLithography As System.Windows.Forms.TextBox
    Friend WithEvents lblLithography As System.Windows.Forms.Label
    Friend WithEvents txtFoundry As System.Windows.Forms.TextBox
    Friend WithEvents lblFoundry As System.Windows.Forms.Label
    Friend WithEvents txtCellLength As System.Windows.Forms.TextBox
    Friend WithEvents lblCellLength As System.Windows.Forms.Label
    Friend WithEvents cmb_TrglUnit As System.Windows.Forms.ComboBox
    Friend WithEvents cmb_LithoUnit As System.Windows.Forms.ComboBox
    Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
    Friend WithEvents ComboBox2 As System.Windows.Forms.ComboBox
    Friend WithEvents lblProcess As System.Windows.Forms.Label
    Friend WithEvents ComboBox3 As System.Windows.Forms.ComboBox
    Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
    Friend WithEvents lblVoltage As System.Windows.Forms.Label
    Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
    Friend WithEvents Label4 As System.Windows.Forms.Label
    Friend WithEvents ComboBox4 As System.Windows.Forms.ComboBox
    Friend WithEvents TextBox5 As System.Windows.Forms.TextBox
    Friend WithEvents Label6 As System.Windows.Forms.Label
    Friend WithEvents ComboBox5 As System.Windows.Forms.ComboBox
    Friend WithEvents TextBox6 As System.Windows.Forms.TextBox
    Friend WithEvents Label7 As System.Windows.Forms.Label
    Friend WithEvents Panel2 As System.Windows.Forms.Panel
    Friend WithEvents btnClose As System.Windows.Forms.Button
    Friend WithEvents btnCancel As System.Windows.Forms.Button
    Friend WithEvents btnSave As System.Windows.Forms.Button
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.Label1 = New System.Windows.Forms.Label
        Me.Panel1 = New System.Windows.Forms.Panel
        Me.Panel2 = New System.Windows.Forms.Panel
        Me.btnClose = New System.Windows.Forms.Button
        Me.btnCancel = New System.Windows.Forms.Button
        Me.btnSave = New System.Windows.Forms.Button
        Me.tabCtrl = New System.Windows.Forms.TabControl
        Me.tabNewSample = New System.Windows.Forms.TabPage
        Me.tabPartsProcure = New System.Windows.Forms.TabPage
        Me.Label5 = New System.Windows.Forms.Label
        Me.tabTechnicalData = New System.Windows.Forms.TabPage
        Me.ComboBox5 = New System.Windows.Forms.ComboBox
        Me.TextBox6 = New System.Windows.Forms.TextBox
        Me.Label7 = New System.Windows.Forms.Label
        Me.ComboBox4 = New System.Windows.Forms.ComboBox
        Me.TextBox5 = New System.Windows.Forms.TextBox
        Me.Label6 = New System.Windows.Forms.Label
        Me.TextBox4 = New System.Windows.Forms.TextBox
        Me.Label4 = New System.Windows.Forms.Label
        Me.ComboBox3 = New System.Windows.Forms.ComboBox
        Me.TextBox3 = New System.Windows.Forms.TextBox
        Me.lblVoltage = New System.Windows.Forms.Label
        Me.ComboBox2 = New System.Windows.Forms.ComboBox
        Me.lblProcess = New System.Windows.Forms.Label
        Me.ComboBox1 = New System.Windows.Forms.ComboBox
        Me.cmb_LithoUnit = New System.Windows.Forms.ComboBox
        Me.cmb_TrglUnit = New System.Windows.Forms.ComboBox
        Me.txtCellLength = New System.Windows.Forms.TextBox
        Me.lblCellLength = New System.Windows.Forms.Label
        Me.txtFoundry = New System.Windows.Forms.TextBox
        Me.lblFoundry = New System.Windows.Forms.Label
        Me.txtLithography = New System.Windows.Forms.TextBox
        Me.lblLithography = New System.Windows.Forms.Label
        Me.TextBox2 = New System.Windows.Forms.TextBox
        Me.lblMeasuredFeatures = New System.Windows.Forms.Label
        Me.TextBox1 = New System.Windows.Forms.TextBox
        Me.lblTransistorgateLen = New System.Windows.Forms.Label
        Me.tabMicrophoto = New System.Windows.Forms.TabPage
        Me.tabMarketing = New System.Windows.Forms.TabPage
        Me.lblInHouseValue = New System.Windows.Forms.Label
        Me.lblInHouse = New System.Windows.Forms.Label
        Me.lblDeviceDescValue = New System.Windows.Forms.Label
        Me.Label3 = New System.Windows.Forms.Label
        Me.lblManufValue = New System.Windows.Forms.Label
        Me.lblManufacturer = New System.Windows.Forms.Label
        Me.cmb_component = New System.Windows.Forms.ComboBox
        Me.Label2 = New System.Windows.Forms.Label
        Me.cmb_sinumber = New System.Windows.Forms.ComboBox
        Me.lblSiNumber = New System.Windows.Forms.Label
        Me.Panel1.SuspendLayout()
        Me.Panel2.SuspendLayout()
        Me.tabCtrl.SuspendLayout()
        Me.tabPartsProcure.SuspendLayout()
        Me.tabTechnicalData.SuspendLayout()
        Me.SuspendLayout()
        '
        'Label1
        '
        Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.Label1.ForeColor = System.Drawing.SystemColors.ActiveCaptionText
        Me.Label1.ImageAlign = System.Drawing.ContentAlignment.TopCenter
        Me.Label1.Location = New System.Drawing.Point(160, 32)
        Me.Label1.Name = "Label1"
        Me.Label1.Size = New System.Drawing.Size(384, 24)
        Me.Label1.TabIndex = 0
        Me.Label1.Text = "Sourcerer"
        Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        '
        'Panel1
        '
        Me.Panel1.Controls.Add(Me.Panel2)
        Me.Panel1.Controls.Add(Me.tabCtrl)
        Me.Panel1.Controls.Add(Me.lblInHouseValue)
        Me.Panel1.Controls.Add(Me.lblInHouse)
        Me.Panel1.Controls.Add(Me.lblDeviceDescValue)
        Me.Panel1.Controls.Add(Me.Label3)
        Me.Panel1.Controls.Add(Me.lblManufValue)
        Me.Panel1.Controls.Add(Me.lblManufacturer)
        Me.Panel1.Controls.Add(Me.cmb_component)
        Me.Panel1.Controls.Add(Me.Label2)
        Me.Panel1.Controls.Add(Me.cmb_sinumber)
        Me.Panel1.Controls.Add(Me.lblSiNumber)
        Me.Panel1.Location = New System.Drawing.Point(16, 63)
        Me.Panel1.Name = "Panel1"
        Me.Panel1.Size = New System.Drawing.Size(776, 440)
        Me.Panel1.TabIndex = 1
        '
        'Panel2
        '
        Me.Panel2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
        Me.Panel2.Controls.Add(Me.btnClose)
        Me.Panel2.Controls.Add(Me.btnCancel)
        Me.Panel2.Controls.Add(Me.btnSave)
        Me.Panel2.Location = New System.Drawing.Point(42, 381)
        Me.Panel2.Name = "Panel2"
        Me.Panel2.Size = New System.Drawing.Size(675, 48)
        Me.Panel2.TabIndex = 12
        '
        'btnClose
        '
        Me.btnClose.Location = New System.Drawing.Point(400, 12)
        Me.btnClose.Name = "btnClose"
        Me.btnClose.Size = New System.Drawing.Size(80, 24)
        Me.btnClose.TabIndex = 17
        Me.btnClose.Text = "Close"
        '
        'btnCancel
        '
        Me.btnCancel.Location = New System.Drawing.Point(292, 12)
        Me.btnCancel.Name = "btnCancel"
        Me.btnCancel.Size = New System.Drawing.Size(80, 24)
        Me.btnCancel.TabIndex = 16
        Me.btnCancel.Text = "Cancel"
        '
        'btnSave
        '
        Me.btnSave.Location = New System.Drawing.Point(192, 12)
        Me.btnSave.Name = "btnSave"
        Me.btnSave.Size = New System.Drawing.Size(80, 24)
        Me.btnSave.TabIndex = 15
        Me.btnSave.Text = "Save"
        '
        'tabCtrl
        '
        Me.tabCtrl.Controls.Add(Me.tabNewSample)
        Me.tabCtrl.Controls.Add(Me.tabPartsProcure)
        Me.tabCtrl.Controls.Add(Me.tabTechnicalData)
        Me.tabCtrl.Controls.Add(Me.tabMicrophoto)
        Me.tabCtrl.Controls.Add(Me.tabMarketing)
        Me.tabCtrl.Location = New System.Drawing.Point(40, 72)
        Me.tabCtrl.Name = "tabCtrl"
        Me.tabCtrl.SelectedIndex = 0
        Me.tabCtrl.Size = New System.Drawing.Size(672, 304)
        Me.tabCtrl.TabIndex = 11
        '
        'tabNewSample
        '
        Me.tabNewSample.Location = New System.Drawing.Point(4, 22)
        Me.tabNewSample.Name = "tabNewSample"
        Me.tabNewSample.Size = New System.Drawing.Size(664, 278)
        Me.tabNewSample.TabIndex = 0
        Me.tabNewSample.Text = "New Sample"
        '
        'tabPartsProcure
        '
        Me.tabPartsProcure.Controls.Add(Me.Label5)
        Me.tabPartsProcure.Location = New System.Drawing.Point(4, 22)
        Me.tabPartsProcure.Name = "tabPartsProcure"
        Me.tabPartsProcure.Size = New System.Drawing.Size(664, 278)
        Me.tabPartsProcure.TabIndex = 1
        Me.tabPartsProcure.Text = "Parts & Procurement"
        '
        'Label5
        '
        Me.Label5.Location = New System.Drawing.Point(96, 48)
        Me.Label5.Name = "Label5"
        Me.Label5.TabIndex = 0
        Me.Label5.Text = "partproc"
        '
        'tabTechnicalData
        '
        Me.tabTechnicalData.Controls.Add(Me.ComboBox5)
        Me.tabTechnicalData.Controls.Add(Me.TextBox6)
        Me.tabTechnicalData.Controls.Add(Me.Label7)
        Me.tabTechnicalData.Controls.Add(Me.ComboBox4)
        Me.tabTechnicalData.Controls.Add(Me.TextBox5)
        Me.tabTechnicalData.Controls.Add(Me.Label6)
        Me.tabTechnicalData.Controls.Add(Me.TextBox4)
        Me.tabTechnicalData.Controls.Add(Me.Label4)
        Me.tabTechnicalData.Controls.Add(Me.ComboBox3)
        Me.tabTechnicalData.Controls.Add(Me.TextBox3)
        Me.tabTechnicalData.Controls.Add(Me.lblVoltage)
        Me.tabTechnicalData.Controls.Add(Me.ComboBox2)
        Me.tabTechnicalData.Controls.Add(Me.lblProcess)
        Me.tabTechnicalData.Controls.Add(Me.ComboBox1)
        Me.tabTechnicalData.Controls.Add(Me.cmb_LithoUnit)
        Me.tabTechnicalData.Controls.Add(Me.cmb_TrglUnit)
        Me.tabTechnicalData.Controls.Add(Me.txtCellLength)
        Me.tabTechnicalData.Controls.Add(Me.lblCellLength)
        Me.tabTechnicalData.Controls.Add(Me.txtFoundry)
        Me.tabTechnicalData.Controls.Add(Me.lblFoundry)
        Me.tabTechnicalData.Controls.Add(Me.txtLithography)
        Me.tabTechnicalData.Controls.Add(Me.lblLithography)
        Me.tabTechnicalData.Controls.Add(Me.TextBox2)
        Me.tabTechnicalData.Controls.Add(Me.lblMeasuredFeatures)
        Me.tabTechnicalData.Controls.Add(Me.TextBox1)
        Me.tabTechnicalData.Controls.Add(Me.lblTransistorgateLen)
        Me.tabTechnicalData.Location = New System.Drawing.Point(4, 22)
        Me.tabTechnicalData.Name = "tabTechnicalData"
        Me.tabTechnicalData.Size = New System.Drawing.Size(664, 278)
        Me.tabTechnicalData.TabIndex = 2
        Me.tabTechnicalData.Text = "Technical Data"
        '
        'ComboBox5
        '
        Me.ComboBox5.Items.AddRange(New Object() {"um", "mm", "nm"})
        Me.ComboBox5.Location = New System.Drawing.Point(584, 150)
        Me.ComboBox5.Name = "ComboBox5"
        Me.ComboBox5.Size = New System.Drawing.Size(56, 21)
        Me.ComboBox5.TabIndex = 25
        '
        'TextBox6
        '
        Me.TextBox6.Location = New System.Drawing.Point(472, 150)
        Me.TextBox6.Name = "TextBox6"
        Me.TextBox6.TabIndex = 24
        Me.TextBox6.Text = ""
        '
        'Label7
        '
        Me.Label7.AutoSize = True
        Me.Label7.Location = New System.Drawing.Point(360, 152)
        Me.Label7.Name = "Label7"
        Me.Label7.Size = New System.Drawing.Size(56, 16)
        Me.Label7.TabIndex = 23
        Me.Label7.Text = "Cell Width"
        '
        'ComboBox4
        '
        Me.ComboBox4.Items.AddRange(New Object() {"um", "mm", "nm"})
        Me.ComboBox4.Location = New System.Drawing.Point(584, 120)
        Me.ComboBox4.Name = "ComboBox4"
        Me.ComboBox4.Size = New System.Drawing.Size(56, 21)
        Me.ComboBox4.TabIndex = 22
        '
        'TextBox5
        '
        Me.TextBox5.Location = New System.Drawing.Point(472, 120)
        Me.TextBox5.Name = "TextBox5"
        Me.TextBox5.TabIndex = 21
        Me.TextBox5.Text = ""
        '
        'Label6
        '
        Me.Label6.AutoSize = True
        Me.Label6.Location = New System.Drawing.Point(360, 122)
        Me.Label6.Name = "Label6"
        Me.Label6.Size = New System.Drawing.Size(68, 16)
        Me.Label6.TabIndex = 20
        Me.Label6.Text = "Clock Speed"
        '
        'TextBox4
        '
        Me.TextBox4.Location = New System.Drawing.Point(472, 86)
        Me.TextBox4.Name = "TextBox4"
        Me.TextBox4.Size = New System.Drawing.Size(160, 20)
        Me.TextBox4.TabIndex = 19
        Me.TextBox4.Text = ""
        '
        'Label4
        '
        Me.Label4.AutoSize = True
        Me.Label4.Location = New System.Drawing.Point(360, 88)
        Me.Label4.Name = "Label4"
        Me.Label4.Size = New System.Drawing.Size(115, 16)
        Me.Label4.TabIndex = 18
        Me.Label4.Text = "Read Access Memory"
        '
        'ComboBox3
        '
        Me.ComboBox3.Items.AddRange(New Object() {"mm", "cm", "um"})
        Me.ComboBox3.Location = New System.Drawing.Point(576, 56)
        Me.ComboBox3.Name = "ComboBox3"
        Me.ComboBox3.Size = New System.Drawing.Size(56, 21)
        Me.ComboBox3.TabIndex = 17
        '
        'TextBox3
        '
        Me.TextBox3.Location = New System.Drawing.Point(472, 56)
        Me.TextBox3.Name = "TextBox3"
        Me.TextBox3.TabIndex = 16
        Me.TextBox3.Text = ""
        '
        'lblVoltage
        '
        Me.lblVoltage.AutoSize = True
        Me.lblVoltage.Location = New System.Drawing.Point(360, 58)
        Me.lblVoltage.Name = "lblVoltage"
        Me.lblVoltage.Size = New System.Drawing.Size(43, 16)
        Me.lblVoltage.TabIndex = 15
        Me.lblVoltage.Text = "Voltage"
        '
        'ComboBox2
        '
        Me.ComboBox2.Location = New System.Drawing.Point(472, 24)
        Me.ComboBox2.Name = "ComboBox2"
        Me.ComboBox2.Size = New System.Drawing.Size(144, 21)
        Me.ComboBox2.TabIndex = 14
        '
        'lblProcess
        '
        Me.lblProcess.AutoSize = True
        Me.lblProcess.Location = New System.Drawing.Point(360, 26)
        Me.lblProcess.Name = "lblProcess"
        Me.lblProcess.Size = New System.Drawing.Size(45, 16)
        Me.lblProcess.TabIndex = 13
        Me.lblProcess.Text = "Process"
        '
        'ComboBox1
        '
        Me.ComboBox1.Items.AddRange(New Object() {"um", "mm", "nm"})
        Me.ComboBox1.Location = New System.Drawing.Point(248, 150)
        Me.ComboBox1.Name = "ComboBox1"
        Me.ComboBox1.Size = New System.Drawing.Size(56, 21)
        Me.ComboBox1.TabIndex = 12
        '
        'cmb_LithoUnit
        '
        Me.cmb_LithoUnit.Items.AddRange(New Object() {"mm", "cm", "um"})
        Me.cmb_LithoUnit.Location = New System.Drawing.Point(248, 56)
        Me.cmb_LithoUnit.Name = "cmb_LithoUnit"
        Me.cmb_LithoUnit.Size = New System.Drawing.Size(56, 21)
        Me.cmb_LithoUnit.TabIndex = 11
        '
        'cmb_TrglUnit
        '
        Me.cmb_TrglUnit.Location = New System.Drawing.Point(248, 24)
        Me.cmb_TrglUnit.Name = "cmb_TrglUnit"
        Me.cmb_TrglUnit.Size = New System.Drawing.Size(56, 21)
        Me.cmb_TrglUnit.TabIndex = 10
        '
        'txtCellLength
        '
        Me.txtCellLength.Location = New System.Drawing.Point(144, 151)
        Me.txtCellLength.Name = "txtCellLength"
        Me.txtCellLength.TabIndex = 9
        Me.txtCellLength.Text = ""
        '
        'lblCellLength
        '
        Me.lblCellLength.AutoSize = True
        Me.lblCellLength.Location = New System.Drawing.Point(32, 153)
        Me.lblCellLength.Name = "lblCellLength"
        Me.lblCellLength.Size = New System.Drawing.Size(61, 16)
        Me.lblCellLength.TabIndex = 8
        Me.lblCellLength.Text = "Cell Length"
        '
        'txtFoundry
        '
        Me.txtFoundry.Location = New System.Drawing.Point(144, 120)
        Me.txtFoundry.Name = "txtFoundry"
        Me.txtFoundry.Size = New System.Drawing.Size(160, 20)
        Me.txtFoundry.TabIndex = 7
        Me.txtFoundry.Text = ""
        '
        'lblFoundry
        '
        Me.lblFoundry.AutoSize = True
        Me.lblFoundry.Location = New System.Drawing.Point(32, 122)
        Me.lblFoundry.Name = "lblFoundry"
        Me.lblFoundry.Size = New System.Drawing.Size(46, 16)
        Me.lblFoundry.TabIndex = 6
        Me.lblFoundry.Text = "Foundry"
        '
        'txtLithography
        '
        Me.txtLithography.Location = New System.Drawing.Point(144, 54)
        Me.txtLithography.Name = "txtLithography"
        Me.txtLithography.TabIndex = 5
        Me.txtLithography.Text = ""
        '
        'lblLithography
        '
        Me.lblLithography.AutoSize = True
        Me.lblLithography.Location = New System.Drawing.Point(32, 58)
        Me.lblLithography.Name = "lblLithography"
        Me.lblLithography.Size = New System.Drawing.Size(111, 16)
        Me.lblLithography.TabIndex = 4
        Me.lblLithography.Text = "Lithography Features"
        '
        'TextBox2
        '
        Me.TextBox2.Location = New System.Drawing.Point(144, 86)
        Me.TextBox2.Name = "TextBox2"
        Me.TextBox2.Size = New System.Drawing.Size(160, 20)
        Me.TextBox2.TabIndex = 3
        Me.TextBox2.Text = ""
        '
        'lblMeasuredFeatures
        '
        Me.lblMeasuredFeatures.AutoSize = True
        Me.lblMeasuredFeatures.Location = New System.Drawing.Point(32, 88)
        Me.lblMeasuredFeatures.Name = "lblMeasuredFeatures"
        Me.lblMeasuredFeatures.Size = New System.Drawing.Size(97, 16)
        Me.lblMeasuredFeatures.TabIndex = 2
        Me.lblMeasuredFeatures.Text = "Measured Feature"
        '
        'TextBox1
        '
        Me.TextBox1.Location = New System.Drawing.Point(144, 24)
        Me.TextBox1.Name = "TextBox1"
        Me.TextBox1.TabIndex = 1
        Me.TextBox1.Text = ""
        '
        'lblTransistorgateLen
        '
        Me.lblTransistorgateLen.AutoSize = True
        Me.lblTransistorgateLen.Location = New System.Drawing.Point(32, 26)
        Me.lblTransistorgateLen.Name = "lblTransistorgateLen"
        Me.lblTransistorgateLen.Size = New System.Drawing.Size(117, 16)
        Me.lblTransistorgateLen.TabIndex = 0
        Me.lblTransistorgateLen.Text = "Transistor GateLength"
        '
        'tabMicrophoto
        '
        Me.tabMicrophoto.Location = New System.Drawing.Point(4, 22)
        Me.tabMicrophoto.Name = "tabMicrophoto"
        Me.tabMicrophoto.Size = New System.Drawing.Size(664, 278)
        Me.tabMicrophoto.TabIndex = 3
        Me.tabMicrophoto.Text = "Mirophotography"
        '
        'tabMarketing
        '
        Me.tabMarketing.Location = New System.Drawing.Point(4, 22)
        Me.tabMarketing.Name = "tabMarketing"
        Me.tabMarketing.Size = New System.Drawing.Size(664, 278)
        Me.tabMarketing.TabIndex = 4
        Me.tabMarketing.Text = "Marketing"
        '
        'lblInHouseValue
        '
        Me.lblInHouseValue.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(192, Byte), CType(255, Byte))
        Me.lblInHouseValue.Location = New System.Drawing.Point(656, 40)
        Me.lblInHouseValue.Name = "lblInHouseValue"
        Me.lblInHouseValue.Size = New System.Drawing.Size(56, 24)
        Me.lblInHouseValue.TabIndex = 10
        '
        'lblInHouse
        '
        Me.lblInHouse.AutoSize = True
        Me.lblInHouse.Location = New System.Drawing.Point(656, 16)
        Me.lblInHouse.Name = "lblInHouse"
        Me.lblInHouse.Size = New System.Drawing.Size(50, 16)
        Me.lblInHouse.TabIndex = 9
        Me.lblInHouse.Text = "in-House"
        '
        'lblDeviceDescValue
        '
        Me.lblDeviceDescValue.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(192, Byte), CType(255, Byte))
        Me.lblDeviceDescValue.ForeColor = System.Drawing.Color.Black
        Me.lblDeviceDescValue.Location = New System.Drawing.Point(528, 40)
        Me.lblDeviceDescValue.Name = "lblDeviceDescValue"
        Me.lblDeviceDescValue.Size = New System.Drawing.Size(96, 24)
        Me.lblDeviceDescValue.TabIndex = 8
        '
        'Label3
        '
        Me.Label3.AutoSize = True
        Me.Label3.Location = New System.Drawing.Point(536, 16)
        Me.Label3.Name = "Label3"
        Me.Label3.Size = New System.Drawing.Size(71, 16)
        Me.Label3.TabIndex = 7
        Me.Label3.Text = "Device Desc."
        '
        'lblManufValue
        '
        Me.lblManufValue.BackColor = System.Drawing.Color.FromArgb(CType(192, Byte), CType(192, Byte), CType(255, Byte))
        Me.lblManufValue.Location = New System.Drawing.Point(400, 40)
        Me.lblManufValue.Name = "lblManufValue"
        Me.lblManufValue.Size = New System.Drawing.Size(96, 24)
        Me.lblManufValue.TabIndex = 6
        '
        'lblManufacturer
        '
        Me.lblManufacturer.AutoSize = True
        Me.lblManufacturer.Location = New System.Drawing.Point(408, 16)
        Me.lblManufacturer.Name = "lblManufacturer"
        Me.lblManufacturer.Size = New System.Drawing.Size(71, 16)
        Me.lblManufacturer.TabIndex = 5
        Me.lblManufacturer.Text = "Manufacturer"
        '
        'cmb_component
        '
        Me.cmb_component.Location = New System.Drawing.Point(333, 14)
        Me.cmb_component.Name = "cmb_component"
        Me.cmb_component.Size = New System.Drawing.Size(40, 21)
        Me.cmb_component.TabIndex = 4
        '
        'Label2
        '
        Me.Label2.AutoSize = True
        Me.Label2.Location = New System.Drawing.Point(231, 16)
        Me.Label2.Name = "Label2"
        Me.Label2.Size = New System.Drawing.Size(78, 16)
        Me.Label2.TabIndex = 3
        Me.Label2.Text = "Componenet #"
        '
        'cmb_sinumber
        '
        Me.cmb_sinumber.Location = New System.Drawing.Point(103, 14)
        Me.cmb_sinumber.Name = "cmb_sinumber"
        Me.cmb_sinumber.Size = New System.Drawing.Size(104, 21)
        Me.cmb_sinumber.TabIndex = 2
        '
        'lblSiNumber
        '
        Me.lblSiNumber.AutoSize = True
        Me.lblSiNumber.Location = New System.Drawing.Point(24, 16)
        Me.lblSiNumber.Name = "lblSiNumber"
        Me.lblSiNumber.Size = New System.Drawing.Size(55, 16)
        Me.lblSiNumber.TabIndex = 0
        Me.lblSiNumber.Text = "SINumber"
        '
        'Form1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.ClientSize = New System.Drawing.Size(840, 565)
        Me.Controls.Add(Me.Panel1)
        Me.Controls.Add(Me.Label1)
        Me.Name = "Form1"
        Me.Text = "Form1"
        Me.Panel1.ResumeLayout(False)
        Me.Panel2.ResumeLayout(False)
        Me.tabCtrl.ResumeLayout(False)
        Me.tabPartsProcure.ResumeLayout(False)
        Me.tabTechnicalData.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region


    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Dim response As MsgBoxResult
        Dim style As MsgBoxStyle
        Dim msg As String
        Dim title As String

        msg = "Do you want to close"
        title = "Information"
        style = MsgBoxStyle.OKCancel



        'response = MsgBox(msg, style, title)

        'If response = MsgBoxResult.Yes Then

        '    MsgBox("Hello Yes")
        'Else
        '    MsgBox("hello, No")

        'End If


        'MsgBox("testing it as msgbox", 4, "XC")

        Windows.Forms.MessageBox.Show("test")

    End Sub
End Class

0
Mikal613Commented:
i pasted in my Visual studio

and when i clicked Close i got the word test in the Msgbox
0
IngridKAuthor Commented:
What are your system setting?  Which spervice pack you have?
0
Mikal613Commented:
im running XP PRO service pack 1

Visual Studio 2003

Maybe you have a bad installation

I even un commented your lines by the Hi

And it worked also
0
IngridKAuthor Commented:
Thanks, Mike. And thanks to all the contributors.

The problem is not yet solved, but i'll leave it here and try  re-installing the framework and see if that helps.

0
IngridKAuthor Commented:
Hello,

Un-installing the McAfee solved the problem. But it's not the correct solution.  My IT guys will not allow me to work on a system with out having McAfee on it. so what is the right solution ? Any one has any clue?

Thanks,
0
Mikal613Commented:
mcafee could ve been using a Dll that is shared with .net and they updated it
0
iboutchkineCommented:
This behavior is caused by buffer overflow protection of McAfee AntiVirus 8.
By installing available updates the problem should go away:

In Virus Scan Console, disable buffer overrun protection
0
IngridKAuthor Commented:
Thanks for all the replies. The problem was solved by installing patch from McAfee

McAfee version 8.0i patch-9 solves this problem. Please see the Issue # 5  in the link below.
 
http://www.mcafee.dk/support/hotfixes.php?id=VSE_8.0i_Patch-9
0
moduloCommented:
PAQed with points refunded (500)

modulo
Community Support Moderator
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic.NET

From novice to tech pro — start learning today.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.