Public Structure abc
     ' .....
     Public Shared Operator =(ByVal x As abc, ByVal y As abc) As Boolean
           ' Code für x = y
           Return result
      End Operator
     Public Shared Operator <>(ByVal x As abc, ByVal y As abc) As Boolean
              ' Code für x <> y
              Return result
     End Operator
End Structure

    While col < lastcol
        col += 1
        a(row, col) = 0
        For i As Integer = 0 To b.GetUpperBound(0)
            If b(i) = col Then
                Continue While ' While wird fortgesetzt
            Else
                a(row, col) += (row + b(i)) / (col - b(i))
            End If
        Next i
    End While

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Dim gcoll As New System.Collections.Generic.Collection(Of Integer)
 
        gcoll.Add(3)
        gcoll.Add(4)
 
        For Each i As Integer In gcoll
            Debug.WriteLine(i)
        Next
    End Sub
End Class