如何在VB中获取当前任务栏高度?

要用到两个API,下面是C#的例子

[DllImport("user32.dll", EntryPoint="GetSystemMetrics")]
public static extern int GetSystemMetrics (int nIndex);
[DllImport("user32.dll", EntryPoint="SystemParametersInfo")]
public static extern int SystemParametersInfo (int uAction,int uParam,ref RECT lpvParam,int fuWinIni);
[StructLayout(LayoutKind.Sequential)]
public struct RECT
{
public int Left;
public int Top;
public int Right;
public int Bottom;
}

...

int f()
{
RECT rec=new RECT();
SystemParametersInfo(48,0,ref rec,0);
return GetSystemMetrics(1)-(rec.Bottom-rec.Top);
}