Screen 对象

属性/方法	说明
ActiveControl	当前活动控件
ActiveForm	当前活动窗口
FontCount	可用字体总数
Fonts	可用字体集合
Height	屏幕高度
MouseIcon	鼠标图标
MousePointer	鼠标指针类型
TwipsPerPixelX	每点缇值，X 方向
TwipsPerPixelY	每点缇值，Y 方向
Width	屏幕宽度

鼠标指针类型

常数	值	描述
vbDefault	0	（缺省值）形状由对象决定。
VbArrow	1	箭头。
VbCrosshair	2	十字线（crosshair 指针）。
VbIbeam	3	I 型
VbIconPointer	4	图标（矩形内的小矩形）。
VbSizePointer	5	尺寸线（指向东、南、西和北四方向的箭头）。
VbSizeNESW	6	右上-左下尺寸线（指向东北和西南方向的双箭头）。
VbSizeNS	7	垂-直尺寸线（指向南和北的双箭头）。
VbSizeNWSE	8	左上-右下尺寸线（指向东南和西北方向的双箭头）。
VbSizeWE	9	水-平尺寸线（指向东和西两个方向的双箭头）。
VbUpArrow	10	向上的箭头。
VbHourglass	11	沙漏（表示等待状态）。
VbNoDrop	12	不允许放下。
VbArrowHourglass	13	箭头和沙漏。
VbArrowQuestion	14	箭头和问号。
VbSizeAll	15	四向尺寸线。
VbCustom	99	通过 MouseIcon 属性所指定的自定义图标。