Hi
I am working on MS Access 2013 trying to make one of the form to be sliding after click a command button "Command3", the syntax in Code Builder/Click is as hereunder:

Private Sub Command3_Click()
Do Until Me.Height > 7000
Me.Height = Me.Height + 1
DoEvents
Loop
End Sub


but it does not work.

what is exactly the wrong.

Regards