Visual Basic

<br />
Public Class Form1<br />
    Dim g As Graphics<br />
    Dim db As Boolean<br />
    Dim x As Integer = 100<br />
    Dim y As Integer = 100<br />
    Dim w As Integer = 150<br />
    Dim h As Integer = 150<br />
<br />
   <br />
    Private Sub Form1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel<br />
        Console.WriteLine(e.Delta.ToString)<br />
        If (e.Delta > 0) Then<br />
            Console.WriteLine("in zoomin")<br />
            w = w * (e.Delta / 100)<br />
            Console.WriteLine("inside zoomin e.delta " & e.Delta.ToString)<br />
            Console.WriteLine("w" & w)<br />
            h = h * (e.Delta / 100)<br />
        End If<br />
        If (e.Delta < 0) Then<br />
            Console.WriteLine("zoomout")<br />
            w = w / ((e.Delta * -1) / 100)<br />
            h = h / ((e.Delta * -1 / 100))<br />
<br />
        End If<br />
        Console.WriteLine("w" & w)<br />
        Me.Refresh()<br />
    End Sub<br />
<br />
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint<br />
 <br />
        e.Graphics.DrawRectangle(Pens.Black, x, y, w, h)<br />
    End Sub<br />
<br />
End Class<br />
<br />

Dim PacketSize As Integer = 8192

       Dim client As New TcpClient
       client.Connect(IPAddress.Parse("192.168.15.51"), 7771)

       Dim ns As NetworkStream = client.GetStream

       Dim fs As New FileStream(FileName, FileMode.Open, FileAccess.Read)

       Dim buffer(PacketSize - 1) As Byte

       Dim i As Integer
       i = fs.Read(buffer, 0, PacketSize)

       While i <> 0

           ns.Write(buffer, 0, i) <-- this line cause the error

           i = fs.Read(buffer, 0, PacketSize)

       End While


       fs.Close()
       ns.Close()

Public Sub New(ByVal type As LocationType, ByVal element As InspectionEntity)
    Me.New(type, New List(Of InspectionEntity){element})
End Sub
Public Sub New(ByVal type As LocationType, ByVal entities As List(Of InspectionEntity))
    Me.New(type, entities, New InspectionEntity([LIB].Enumerations.TableIDDefault.NullKey, "", ""))
End Sub

Comma, ')', or a valid expression continuation expected.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       If Not Me.TextBox1.Text = "a" Or Not Me.TextBox1.Text = "b" Then
           MsgBox("1")
       Else
           MsgBox("2")
       End If
   End Sub