Resume Layout() End Sub Private Sub My Label_Click(By Val sender As Object, By Val e As System. Length For index As Integer = 0 To _ROWS * _COLS - 1 Me._my Label(index).
In the above code, you could omit the lines that create and use the Word.
Application object and replace them with invisibility lines: Notice that you want to put the Word. Visible = True line in an error-handler or in a spot where you know it will be run if something goes awry. (If you do get stuck with an invisible Word in the middle of a crash, you can launch the Task Manager and kill the WINWORD.
I think I have a way to make things at least look a little smoother, without double buffering and such...(At least it does on my PC) Try swapping your order you change the labels properties.
So, I know it has been a while, but I was just running through some old code and I got to thinking about this problem again.
Thanx Kind Regards Dump the macro, convert it to VBA.