LESIA 様早速のご返答有難う御座います。ご指摘の件、自分も試して見たのですが変わりませんでした。> > Command1.Enabled = False> の後に、DoEventsを入れてみてはどうでしょうか?