メッセージはこれ参考にして
ttp://wisdom.sakura.ne.jp/system/winapi/win32/win42.html

動かしてないけどオーバーライドした中身はこんなかんじか？ってのをなんとなく記述

'クラスのプライベートとかで宣言
private const WM_なんたら As Integer = &H??

'ここがWinProcの中身
ｔｒｙ

　ｓｅｌｅｃｔ case e.msg

　　　case WM_なんたら

　end select

finally
　　mybase.winproc(e)
end try


こんなんじゃ出来なかったっけ？