對 于 鼠 標 的 可 見 性 控 制 是 調 用 API函 數 showcursor()： 
    聲 明 如 下 ： 
     Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long 
     
    參 數 ： 
     bShow有 兩 種 情 況 ： 
     bShow=True 鼠 標 顯 示 
     bShow=False 鼠 標 隱 藏 
    示 例 ： 
     可 添 加 一 個 Command按 鈕 ， 然 后 加 代 碼 如 下 ： 
     Private Sub Command1_Click() 
     ShowCursor False 
     End Sub 
     
     Private Sub Form_Unload(Cancel As Integer) 
     ShowCursor True 
     End Sub 
    OK,搞 定 !在 VB6.0內 調 試 通 過 。 
<END>