Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = x Then Command1.Move Command1.Left + 10, Command1.Top + 5, Command1.Width - 20, Command1.Height - 10
If KeyAscii = Y Then Command1.Move Command1.Left - 10, Command1.Top - 5, Command1.Width + 20, Command1.Height + 10
End Sub
Private Sub Form_Load()
x = Asc(InputBox("please set a key to make commandbutton1 smaller:", "user config", "S"))
Y = Asc(InputBox("please set a key to make commandbutton1 larger:", "user config", "L"))
Me.KeyPreview = True
End Sub