Screen.MousePointer = 11 '鼠标呈现漏斗等待状态
Screen.MousePointer = 1 '鼠标恢复为默认状态
VB--鼠标状态
Guess you like
Origin blog.csdn.net/Mimo_YY/article/details/118706267
Ranking
Screen.MousePointer = 11 '鼠标呈现漏斗等待状态
Screen.MousePointer = 1 '鼠标恢复为默认状态