expression.MouseShape As MouseShapeOption
Sub SetMouseShape() ThisIbmTerminal.MouseShape = MouseShapeOption_Rectangular End Sub
IbmTerminal Object IbmTerminal Members