Visual Basic

Public Function GetGridData(ByVal value as Object) As Object

  For Each dr as DAtaGridViewRow In dgv.Rows
    If dr(0).Cells.Value = value Then
       Return dr(1).Cells.Value
    End If
  Next

End Function

offroaderdan wrote:

objWriter.WriteLine(TextBox1)

offroaderdan wrote:

Select Case SerialNumber FROM Win32_BIOS

ManagementObjectSearcher searcher=
    new ManagementObjectSearcher("SELECT * FROM Win32_BIOS");
ManagementObjectCollection results=searcher.Get();
foreach (ManagementObject result in results) {
    PropertyDataCollection pdc=result.Properties;
    foreach (PropertyData pd in pdc) {
        string name=pd.Name;
        object obj=pd.Value;
        if (obj!=null) output(name+" = \""+obj.ToString()+"\"");
    }
}

Imports System.management
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim SerialNumber As New Management.ManagementObjectSearcher("serialnumber Win32_BIOS")
        Dim pd As String

        For Each management.ManagementObject result in result
            PropertyDataCollection(pdc = results.properties)
            for each propertyData pd in pdc)

if (obj!null) output(name+" =\"+obj.tostring()+"/") then
                    textbox1.text = SerialNumber

                End If


            Next

    End Sub
End Class