Private Sub TimerZoominOut_Tick(sender As System.Object, e As System.EventArgs) Handles TimerZoominOut.Tick Dim zoom = Document.ZoomFactor Select Case zoom Case zoom = 63 toolBar_zoomin.Enabled = False Case zoom < 63 toolBar_zoomin.Enabled = True Case zoom = 1 toolBar_zoomOut.Enabled = False Case zoom > 1 toolBar_zoomOut.Enabled = True End Select End Sub
I want the buttons to disable/enable and the correct point. the Document is actually a richtextbox. However it does not seem to work. I don't know what I am doing wrong. Maybe someone can tell me where I have gone wrong.