アプリケーションのインスタンスハンドルを取得する

Public Shared Sub Main()

    Dim hInstance As IntPtr

    hInstance = GetHInstance()

End Sub

Public Shared Function GetHInstance() As IntPtr

    Return Marshal.GetHINSTANCE([Assembly].GetExecutingAssembly().GetModules()(0))

End Function

public static void Main()
{
    IntPtr hInstance;

    hInstance = GetHInstance();
}

public static IntPtr GetHInstance()
{
    return Marshal.GetHINSTANCE( Assembly.GetExecutingAssembly().GetModules()[0] );
}