COM

ActiveXAmbientMode = UserControl.Ambient.UserMode

Private Sub UserControl_AmbientChanged(PropertyName As String)
    If PropertyName = "UserMode" Then
        ' Do Stuff Here
    End If   
End Sub

IOleCommandTarget* pCT;
CComVariant vGlyphTableEntry;
vGlyphTableEntry = "c:\\temp.jpg";

if (pElemDispatch->QueryInterface(__uuidof(IOleCommandTarget), (void**)&pCT)==S_OK)
{
pCT->Exec(&CGID_MSHTML, IDM_SAVEPICTURE , OLECMDEXECOPT_DONTPROMPTUSER ,&vGlyphTableEntry, 0);
pCT->Release();
}

#pragma once

#include <string>
#include <windows.h>
#include <exdisp.h>
#include <mshtmlc.h>

#include <atlbase.h>
#include <atlcom.h>
#include <atlwin.h>

using std::string;

#import "PROGID:ShockwaveFlash.ShockwaveFlash" no_namespace raw_interfaces_only

typedef HRESULT (WINAPI *LPAtlAxWinInit) ();
typedef HRESULT (WINAPI *LPAtlAxGetControl)(HWND hwnd, IUnknown** unk);

class FlashViewer
{
public:
	FlashViewer();
	~FlashViewer();

	bool Init(int Width, int Height);

	void OpenFlash(const char* filename);

	void DrawToSurface(LPDIRECTDRAWSURFACE7 lpdds);

private:
	int mViewerWidth;
	int mViewerHeight;

	HWND mViewerWnd;
	IShockwaveFlash* mFlashCtrl;
};

FlashViewer::FlashViewer()
{
	mViewerWidth = 0;
	mViewerHeight = 0;

	mViewerWnd = 0;
	mFlashCtrl = NULL;
}

FlashViewer::~FlashViewer()
{
	DestroyWindow(this->mViewerWnd);
	if (this->mFlashCtrl != NULL)
	{
		this->mFlashCtrl->Release();
		this->mFlashCtrl = NULL;
	}
}

bool FlashViewer::Init(int width, int height)
{
	LPAtlAxWinInit AtlAxWinInit3 = (LPAtlAxWinInit)GetProcAddress(LoadLibrary("atl"), "AtlAxWinInit");
	LPAtlAxGetControl AtlAxGetControl3 = (LPAtlAxGetControl)GetProcAddress(LoadLibrary("atl"), "AtlAxGetControl");

	MSG msg;
	HRESULT hr = AtlAxWinInit3();

	HWND hwnd = CreateWindow("AtlAxWin", "", WS_VISIBLE|WS_POPUP, 0, 0, 1024, 768, 0, 0, 0, 0);

	IShockwaveFlash* flash = 0;

	hr = CoCreateInstance(__uuidof(ShockwaveFlash), 0, CLSCTX_ALL, __uuidof(IShockwaveFlash), (void **)&flash);
	hr = flash->put_WMode(L"transparent");
	hr = flash->put_Loop(true);

	hr = AtlAxAttachControl(flash, hwnd, NULL);
	hr = flash->put_Movie(L"c:\\FrontEnd.swf");

	long pVal = -1;
	flash->get_ReadyState(&pVal);

	return true;
}

void FlashViewer::OpenFlash(const char *filename)
{
	this->mFlashCtrl->LoadMovie(0, _bstr_t(filename));
}

void FlashViewer::DrawToSurface(LPDIRECTDRAWSURFACE7 lpdds)
{
	if (this->mViewerWnd == NULL)
		return;
	RECT rect = {0, 0, this->mViewerWidth, this->mViewerHeight};
	HDC hdcSurface;
	HRESULT hr = lpdds->GetDC(&hdcSurface);
	if (FAILED(hr))
		return;
	SetMapMode(hdcSurface, MM_TEXT);
	OleDraw(this->mFlashCtrl, DVASPECT_CONTENT, hdcSurface, &rect);
	lpdds->ReleaseDC(hdcSurface);
}

if (MyInterface.Windows.Exist(ref data) == true)

System.InvalidCastException: Unable to cast COM object of type 'System.__ComObject' to class type 'VB.Form'. COM components that enter the CLR and do not support IProvideClassInfo or that do not have any interop assembly registered will be wrapped in the __ComObject type. Instances of this type cannot be cast to any other class; however they can be cast to interfaces as long as the underlying COM component supports QueryInterface calls for the IID of the interface.