Change mouse pointer to hour glass

[macca34]

I have developed a word form (VB). The form has a combobox that display/hides tables (part of the code below). If one of the three options are choosen I want to change the mouse pointer to a hour glass to show the user that a process is running. Grateful if someone could give me any advice.


Private Sub ComboBox1_Change()
'If user selects 'Addition'
If ComboBox1.Value = T1 Then
With ActiveDocument.Tables(2).Rows(1)
.HeightRule = wdRowHeightExactly
.Height = ".1"
.Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
.Borders(wdBorderLeft).LineStyle = wdLineStyleSingle
.Borders(wdBorderRight).LineStyle = wdLineStyleSingle
End With
With ActiveDocument.Tables(2).Rows(2)
.HeightRule = wdRowHeightExactly
.Height = ".1"
.Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
.Borders(wdBorderLeft).LineStyle = wdLineStyleSingle
.Borders(wdBorderRight).LineStyle = wdLineStyleSingle
DG1.Height = 0.75
End With

[ranman256]

try: System.Cursor = wdCursorWait 'wdCursorNormal

[macca34]

Thanks. That works great.