CurCPMode

应用示例

Sub Main	
 Dim prevSet As Variant				

 '获取当前设定的CP插补模式的设定					
 prevSet = CurCPMode

 '设定CP插补模式			
 CPMode 1				

 '执行某些处理				

 '返回至原设定CP插补模式			
 CPMode prevSet

End Sub