.NET (Core and Framework)

<br />
An error occurred creating the form. See Exception.InnerException for details.  The error is: The form referred to itself during construction from a default instance, which led to infinite recursion.  Within the Form's constructor refer to the form using 'Me.'<br />

Public Class Form1
    Dim getwmi As New wmiget()
    Dim smtp As New smtp()
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        getwmi.Main()
    End Sub

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        tbAt.Clear()
        FindAttachment.Title = "Please select a file"
        FindAttachment.InitialDirectory = Environment.GetEnvironmentVariable("userprofile") + "\Desktop"
        FindAttachment.ShowDialog()

    End Sub

    Private Sub FindAttachment_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles FindAttachment.FileOk
        Dim filepath As System.IO.FileStream = FindAttachment.OpenFile()
        tbAt.Text = FindAttachment.FileName.ToString.ToLower()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        tbTo.Clear()
        tbFr.Clear()
        tbSu.Clear()
        tbBo.Clear()
        tbSe.Clear()
        tbAt.Clear()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If tbUs.Text = "" And tbPa.Text = "" Then
            MsgBox("Smtp:[" + tbSe.Text + "]: requires a username and password to continue")
        End If
        smtp.smtp()
    End Sub
End Class

Imports System.Net.Mail
Public Class smtp

    Dim username As String = Form1.tbUs.Text
    Dim password As String = Form1.tbPa.Text

    Public Sub smtp()
        Try
            'Start by creating a mail message object
            Dim MyMailMessage As New MailMessage()

            'From requires an instance of the MailAddress type
            MyMailMessage.From = New MailAddress(Form1.tbFr.Text.ToLower())

            'To is a collection of MailAddress types 
            MyMailMessage.To.Add(Form1.tbTo.Text.ToLower())

            MyMailMessage.Subject = Form1.tbSu.Text
            MyMailMessage.Body = Form1.tbBo.Text

            'Add attachment
            Dim attachFile As New Attachment(Form1.tbAt.Text)
            MyMailMessage.Attachments.Add(attachFile)

            'Create the SMTPClient object and specify the SMTP server 
            Dim SMTPServer As New SmtpClient(Form1.tbSe.Text.ToLower())
            SMTPServer.Port = 587
            SMTPServer.Credentials = New System.Net.NetworkCredential(username, password)
            SMTPServer.EnableSsl = True

            Try
                SMTPServer.Send(MyMailMessage)
                MsgBox("Email Sent Successfully.", vbInformation, "Email Notification")
                username = ""
                password = ""
            Catch ex As SmtpException
                MessageBox.Show(ex.Message)

            End Try
        Catch EX As Exception
            MessageBox.Show(EX.Message)
        End Try
    End Sub

End Class

'------------------------------------------------------------------------------
' <auto-generated>
'     This code was generated by a tool.
'     Runtime Version:4.0.30319.1
'
'     Changes to this file may cause incorrect behavior and will be lost if
'     the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------

Option Strict On
Option Explicit On


Namespace My
    
    'NOTE: This file is auto-generated; do not modify it directly.  To make changes,
    ' or if you encounter build errors in this file, go to the Project Designer
    ' (go to Project Properties or double-click the My Project node in
    ' Solution Explorer), and make changes on the Application tab.
    '
    Partial Friend Class MyApplication
        
        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
        Public Sub New()
            MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
            Me.IsSingleInstance = false
            Me.EnableVisualStyles = true
            Me.SaveMySettingsOnExit = true
            Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
        End Sub
        
        <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
        Protected Overrides Sub OnCreateMainForm()
            Me.MainForm = Global.TeamSpec.Form1

        End Sub
    End Class
End Namespace

protected void gvCriticalTerms_RowCommand(object sender, GridViewCommandEventArgs e)
        {
            if (e.CommandName.Equals("AddNew"))
            {



                //TextBox txtTermsID = (TextBox)gvCriticalTerms.FooterRow.FindControl("txtTermsID");txtTermsID.Text
                TextBox txtTerms = (TextBox)gvCriticalTerms.FooterRow.FindControl("txtTerms");
                TextBox txtDefaultValue = (TextBox)gvCriticalTerms.FooterRow.FindControl("txtDefaultValue");
                TextBox txtActualValue = (TextBox)gvCriticalTerms.FooterRow.FindControl("txtActualValue");
                TextBox txtReasonForDeviation = (TextBox)gvCriticalTerms.FooterRow.FindControl("txtReasonForDeviation");
                TextBox txtAlert = (TextBox)gvCriticalTerms.FooterRow.FindControl("txtAlert");
                TextBox txtContractID = (TextBox)gvCriticalTerms.FooterRow.FindControl("txtContractID");



                vrmdb.Insert_CriticalTermsRecords(txtTerms.Text, txtDefaultValue.Text, txtActualValue.Text, txtReasonForDeviation.Text, txtAlert.Text, txtContractID.Text);
                BindGrid();
                Response.Redirect("ContractThreeGridView.aspx");

            }
        }

ManagementObjectSearcher searcher = new ManagementObjectSearcher("root\\CIMV2",                                                 "Select * from Win32_PnPEntity Where Name Like '%Apple%'");