.NET (Core and Framework)

   Module Module1

    Sub Main()
        Dim ObjMemoryStream As System.IO.MemoryStream
        ObjMemoryStream = New System.IO.MemoryStream()
        System.Console.WriteLine("Capacity: {0}", ObjMemoryStream.Capacity.ToString())
        System.Console.WriteLine("Length: {0}", ObjMemoryStream.Length.ToString())

        Dim j As Integer

        For i As Integer = 0 To 1073741824 Step 1
            If (i Mod 256) = 0 Then j = 0 Else j = i Mod 256
            ObjMemoryStream.WriteByte(j)
        Next i

        System.Console.WriteLine("Length: {0}", ObjMemoryStream.Length.ToString())

        Dim ObjFileStream As System.IO.FileStream
        ObjFileStream = System.IO.File.Create("C:\TEST.TXT", 1024)

        Dim ObjBinaryWriter As System.IO.BinaryWriter
        ObjBinaryWriter = New System.IO.BinaryWriter(ObjFileStream, System.Text.Encoding.ASCII)

        ObjMemoryStream.Position = 0

        ObjBinaryWriter.Write(ObjMemoryStream.ToArray())

        ObjBinaryWriter.Flush()
        ObjBinaryWriter.Close()

        System.Console.ReadKey()

    End Sub

End Module

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'GradebookDataSet._02_Customer_Information' table. You can move, or remove it, as needed.
        Me._02_Customer_InformationTableAdapter.Fill(Me.GradebookDataSet._02_Customer_Information)
        'TODO: This line of code loads data into the 'GradebookDataSet._01_Inventory' table. You can move, or remove it, as needed.
        Me._01_InventoryTableAdapter.Fill(Me.GradebookDataSet._01_Inventory)

    End Sub

    Private Sub InventoryToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InventoryToolStripMenuItem.Click

'im try to just show the table "inventory" in the form when you click on the sub-menu
'what do I have to write on here?

  End Sub

       Private Sub Customer_InformationToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InventoryToolStripMenuItem.Click

     
'im try to just show the table "Customer_Information" in the form when you click on 'the sub-menu
'what do I have to write on here?
  

    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        End
    End Sub
End Class

strsql = "update membercars set "
                strsql = strsql & "make= '" & txtmake.Text & "', "
                strsql = strsql & "model= '" & txtmodel.Text & "', "
                strsql = strsql & "color= '" & txtcolor.Text & "', "
                strsql = strsql & "tag= '" & txttag.Text & "', "
                strsql = strsql & "memberid= " & Val(txtserial.Text) & " where serial = " & Val(txtcarserial.Text)

                strsql = strsql & " and serial = " & Val(txtserial.Text) & ") "