vb MousePointer(鼠标形状)

MousePointer属性用来显示鼠标箭头的形状的。 可在C:/WINDOWS/Cursors 找到这些形状。

  常数                       值      描述    
  vbDefault               0       缺省值    
  vbArrow                 1       箭头    
  vbCrosshair            2      十字线    
  vbIbeam                 3      I   型标    
  vbIconPointer         4      图标    
  vbSizePointer         5      尺寸线    
  vbSizeNESW           6      上-左下尺寸线    
  vbSizeNS                7       垂-直尺寸线    
  vbSizeNWSE           8       左上-右下尺寸线    
  vbSizeWE                9      水-平尺寸线    
  vbUpArrow              10    向上箭头    
  vbHourglass            11    沙漏    
  vbNoDrop                12    不允许放下    
  vbArrowHourglass   13    箭头和沙漏；（仅在   32   位   Visual   Basic   5.0   中使用）    
  vbArrowQuestion     14    箭头和问号；（仅在   32   位   Visual   Basic   5.0   中使用）    
  vbSizeAll                  15     四向尺寸线；（仅在   32   位   Visual   Basic   5.0   中使用）    
  vbCustom                99     通过   MouseIcon   属性所指定的自定义图标

 

例：

Private Sub Form_Load()
    MousePointer = 11
    Command1.MousePointer = vbArrowQuestion
End Sub