【SpeadSheet for VB6】解决Spread无法获得焦点

调用SetFocus方法后Spread仍然无法获得焦点
问题出在Spread不失去焦点的情况下无法获得焦点
所以在调用按钮单击事件时（Button1_Click）要先使按钮获得焦点（Button1.SetFocus)

        vbSpread1.SetFocus
        vbSpread1.Col = 1
        vbSpread1.Row = 1

        vbSpread1.ACTION = ActionActiveCell