For i = 1 To 1000
  For j = 1 To 1000
    res = x.Item(i) Mod y.Item(j)
  Next j
Next i

Dim xval As Long
For i = 1 To 1000
  xval = x.Item(i)
  For j = 1 To 1000
    res = xval Mod y.Item(j)
  Next j
Next i

'@TestMethod
'Some comment
Public Sub TestMethod1() 'TODO Rename test
    On Error GoTo TestFail

    'Arrange:

    'Act:

    'Assert:
    Assert.Inconclusive

TestExit:
    Exit Sub
TestFail:
    Assert.Fail "Test raised an error: #" & Err.Number & " - " & Err.Description
End Sub

Dim yyy

#If False Then
  Sub foo1()
    Beep
  End Sub

#Else
  Dim xxx
#End If

/// <summary>
/// Represents a VBComponent or a VBProject.
/// </summary>
public struct QualifiedModuleName

Private Sub PhysicalCodeLine_Validate(ByVal content As String, ByVal index As Long)

        try
        {
            Application = (TApplication)Marshal.GetActiveObject(applicationName + ".Application");
        }
        catch (COMException)
        {
            Application = null; // unit tests don't need it anyway.
        }

        protected HostApplicationBase(string applicationName)
        {
            _applicationName = applicationName;

            try
            {
                Application = (TApplication)Marshal.GetActiveObject(applicationName + ".Application");
            }
            catch (COMException)
            {
                Application = null; // unit tests don't need it anyway.
            }
        }

        protected HostApplicationBase(IVBE vbe, string applicationName)
        {
            _applicationName = applicationName;

            try
            {
                var appProperty = vbe.VBProjects
                    .Where(project => project.Protection == ProjectProtection.Unprotected)
                    .SelectMany(project => project.VBComponents)
                    .Where(component => component.Type == ComponentType.Document
                    && component.Properties.Count > 1)