請問如何透過VB 關閉 Crystal Reports(編號：3146)

我在VB中寫入
Private Sub Command1_Click(Index As Integer)
CrystalReport1.Action = 1
End Sub
問題????當使用者按下重複按下Command1而且又沒有將原本CrystalReport1關閉,將產生CrystalReport1被重複開啟
,如何避免出現此現象.....