>>7
よく見たらlpmsgがあったんだね。たぶんそれは必要ない。msgに置き換える。

Function Export PreTranslateMessage(msg As *MSG) As DWord

'ウィンドウ宛てにメッセージが送られてきたら
If g_hWnd And (msg->hwnd = g_hWnd) Then
'TranslateとDispatchでメッセージを処理する
TranslateMessage(ByVal msg)
DispatchMessage(ByVal msg)
PreTranslateMessage = 1'処理したこと表すため1を返す
Exit Function
End If
PreTranslateMessage = 0'処理しなかったので0を返す
End Function

これならどうだろ