Coloque em form uma label e depois um botao em cima da label com as mesmas dimensões e nas propiedades do botao coloque visible False e depois cole este codigo
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Visible = False
End Sub
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Visible = True
End Sub