При наведении мышки значение на кнопке меняется, а как сделать чтобы, когда убираем указатель с кнопки значение вернулось прежнее?

Private Sub Кнопка25_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Bt1.Caption = DLookup("[Date]", "TM", "[id] = 8")
End Sub

http://www.sql.ru/forum/1084100/sobytie-navedenii-ukazatelya-myshi-na-button