HSPTV!掲示板

こんにちは。
タスクバーの高さを取得したいのですがどのようにすればよいのでしょうか？
HSP2の掲示板には方法が載っていたのですが、
3.0では動かず、どのようにすればよいのかわかりません。
初歩的な質問だとは思いますが、どなたか教えてくださる方が
いらっしゃいましたらよろしくお願いします。

3用に移植してみました。

#uselib "user32"
#func FindWindow "FindWindowA" str, int
#func GetWindowRect "GetWindowRect" int, int

	dim RECT, 4

	FindWindow "shell_traywnd"
	GetWindowRect stat, varptr (RECT)

	mes RECT.3 - RECT.1

書き込んでいただいてくれたソースで無事に高さ取得することができました。
Kpanさん、ありがとうございます。