如何不用选中也能改变字体、字号设置并不让文本内容滚动，还有怎样隐藏鼠标指针。

Question

最简单的方法就是制作一个“空鼠标"
然后用Screen.mousepointer=“空鼠标"那就OK了!!!

Answer 1

聪明，但也很笨，其实有个API很简单，ShowCursor()，例子如下：Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Sub Form_Load()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: [email protected]
    'Hide the cursor
    ShowCursor 0
    'Wait 10 seconds
    t = Timer
    Do: DoEvents: Loop Until Timer > t + 10
    'Show the cursor
    ShowCursor 1
End Sub

Answer 2

正确的程序如下：Option Explicit
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
Private Sub Form_Load()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: [email protected]
    'Hide the cursor
    ShowCursor 0
    'Wait 10 seconds
    Dim t As Date
    t = Timer
    Do: DoEvents: Loop Until Timer > t + 5
    'Show the cursor
    ShowCursor 1
End Sub你有可能有五秒钟看不到鼠标：））