VB .NET SendMessage - mIRC Discussion Forums

I'm having trouble figuring out SendMessage with VB .Net. I have successfully found the Channel Window I want. Now I want to send a command to it. Here is what I'm trying to send mIRC:

For Each chrMessage In strMessage
SendMessage(intPtrChannelHandle, &H102 + 200, 1, chrMessage.ToString)
Next
SendMessage(intPtrChannelHandle, &H102 + 200, 13, vbNullString)

Anyone have an example or know what I'm doing wrong?

brad

I don't know (or like) VB, but I know how to do it in C, and considering its mostly API calls, this should be easily translatable:

Usage is SendCommand(mIRC_window, "/command string");

Code:

#define WM_MCOMMAND	(WM_USER+200)
#define WM_MEVALUATE	(WM_USER+201)

BOOL SendCommand(HWND hwnd, char *command)
{
	HANDLE hMapFile;
	LPSTR mData;
	BOOL result = FALSE;

	hMapFile = CreateFileMapping(INVALID_HANDLE_VALUE, 0, PAGE_READWRITE, 0, 4096, "mIRC");
	mData = (LPSTR)MapViewOfFile(hMapFile, FILE_MAP_ALL_ACCESS, 0, 0, 0);
	wsprintf(mData, command);
	SendMessage(hwnd, WM_MCOMMAND, NULL, NULL);
	if (strcmp(mData, "1") == 0) result = TRUE;
	UnmapViewOfFile(mData);
	CloseHandle(hMapFile);
	return result;
}

Thanks, trying to convert it now.