花ちゃんさん、いつも有難うございます。灯台下暗しで申し訳ないです。LB_の探し方が足りなかったです。。。Dim H As LongH = SendMessage(LISTBOX.hWnd, LB_GETITEMHEIGHT, 0, 0) * Screen.TwipsPerPixelY