SubD.Dispose Method