Access - EXPANDIR CONTROL AL RECIBIR EL ENFOQUE

Me gustaria saber si hay algun modo de expandir automaticamente al contenido un control de tipo etiqueta cuando recibe el enfoque.

Al hacer click este procedimiento que expande el campo
Private Sub GP01OBSE_Click()
Me!GP01OBSE.Width = 8000
End Sub

Al perder el enfoque este procedimiento que contrae el campo
Private Sub GP01OBSE_LostFocus()
Me!GP01OBSE.Width = 500
End Sub
Saludos desde Cádiz