File: System\Windows\Forms\AxHost.VisualBasic6Tests.cs
Web Access
Project: src\src\System.Windows.Forms\tests\UnitTests\System.Windows.Forms.Tests.csproj (System.Windows.Forms.Tests)
// Licensed to the .NET Foundation under one or more agreements.
// The .NET Foundation licenses this file to you under the MIT license.
 
using System.ComponentModel;
using System.Runtime.InteropServices;
using System.Windows.Forms.Tests.TestResources;
 
namespace System.Windows.Forms.Tests;
 
public class AxHostVisualBasic6Tests
{
    [WinFormsFact(Skip = "Causes test run to abort, must be run manually.")]
    public void AxHost_SimpleControl_Create()
    {
        if (RuntimeInformation.ProcessArchitecture != Architecture.X86)
        {
            return;
        }
 
        using Form form = new();
        form.Shown += (object sender, EventArgs e) => form.Close();
        using DynamicAxHost control = new(ComClasses.VisualBasicSimpleControl);
        ((ISupportInitialize)control).BeginInit();
        form.Controls.Add(control);
        ((ISupportInitialize)control).EndInit();
        form.ShowDialog();
    }
}