>942
サブクラスによって、自作メッセージを追加できました。
ありがとうございます

もうひとつ御願いがあるのですが
メッセージを送ったとき引数 lParamに
文字列を入れてあるのですが、
メッセージを受け取る関数で処理すると
lParamが、文字列の最初の文字のアドレス値になっているようです。
だから、つねにその値は同じ値です。
これを、文字列にしたいのですが
教えてください

ちなみに関数内の処理は下のコードのようになります．
Label1のキャプションに文字列を表示させます。

Function OnCom _
(ByVal hWnd As Long, _
ByVal uMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long

Dim a As String
' システムカラー設定の変更通知メッセージのときは
If uMsg = WM_USER_RXCOMM Then
a = lParam
Form1.Label1.Caption = a
End If
' オリジナルウィンドウプロシージャへメッセージを渡す
OnCom = _
CallWindowProc(glnglpOriginalWndProc, _
hWnd, _
uMsg, _
wParam, _
lParam)
End Function