\documentclass{article}
\usepackage{amsmath,amssymb}
\usepackage{framed,color}
\definecolor{shadecolor}{cmyk}{0.05,0,0,0}
\definecolor{TFFrameColor}{rgb}{0,1,0}
\definecolor{TFTitleColor}{rgb}{1,0,0}
\usepackage{xepersian}

\makeatletter
\newdimen\errorsize \errorsize=0.2pt
% Frame with a label at top
\newcommand\LabFrame[2]{
\fboxrule=1.5pt
\fboxsep=.5pt
\fbox{%
    \fboxrule=1.5pt
    \fboxsep=-\errorsize
    \textcolor{FrameColor}{%
    \fbox{%
      \vbox{\nobreak
      \advance\FrameSep\errorsize
      \begingroup
        \advance\baselineskip\FrameSep
        \hrule height \baselineskip
        \nobreak
        \vskip-\baselineskip
      \endgroup
      \vskip 0.5\FrameSep
      \hbox{\hskip\FrameSep \strut
        \textcolor{black}{\textbf{#1}}}%
      \nobreak \nointerlineskip
      \vskip 1.3\FrameSep
      \hbox{\hskip\FrameSep
        {\normalcolor#2}%
        \hskip\FrameSep}%
      \vskip\FrameSep
    }}%
}}}
\definecolor{FrameColor}{rgb}{1,1,.70}
\definecolor{TitleColor}{rgb}{1.0,1.0,1.0}

\newenvironment{contlabelframe}[2][\Frame@Lab\ (cont.)]{% 
  % Optional continuation label defaults to the first label plus
  \def\Frame@Lab{#2}%
  \def\FrameCommand{\LabFrame{#2}}%
  \def\FirstFrameCommand{\LabFrame{#2}}%
  \def\MidFrameCommand{\LabFrame{#1}}%
  \def\LastFrameCommand{\LabFrame{#1}}%
  \MakeFramed{\advance\hsize-\width \FrameRestore} 
}{\endMakeFramed} 
\newcounter{theorem}
\newenvironment{theorem}[1]{%
  \par
  \refstepcounter{theorem}%
  \begin{contlabelframe}{
  \fboxrule=.75pt
   \fboxsep=2.3pt
  \fbox{ \thetheorem}\quad #1}
 \noindent\ignorespaces}
{\end{contlabelframe}} 
\makeatother

\begin{document}
ا
\begin{theorem}{قضیه‌}
می‌گوئیم حد دنباله\[\lim_{n\to\infty}a_n=L\]مابقی  ...

\end{theorem}










\begin{shaded}
نمسش
\end{shaded}

\begin{titled-frame}{عنوان}

این یک آزمایش است همانطور که می‌بینید و آن را ادامه و ادامه می‌دهم تا به آخر برسم این یک آزمایش است همانطور که می‌بینید و آن را ادامه و ادامه می‌دهم تا به آخر برسم این یک آزمایش است همانطور که می‌بینید و آن را ادامه و ادامه می‌دهم تا به آخر برسم این یک آزمایش است همانطور که می‌بینید و آن را ادامه و ادامه می‌دهم تا به آخر برسم این یک آزمایش است همانطور که می‌بینید و آن را ادامه و ادامه می‌دهم تا به آخر برسم این یک آزمایش است همانطور که می‌بینید و آن را ادامه و ادامه می‌دهم تا به آخر برسم این یک آزمایش است همانطور که می‌بینید و آن را ادامه و ادامه می‌دهم تا به آخر برسم این یک آزمایش است همانطور که می‌بینید و آن را ادامه و ادامه می‌دهم تا به آخر برسم این یک آزمایش است همانطور که می‌بینید و آن را ادامه و ادامه می‌دهم تا به آخر برسم این یک آزمایش است همانطور که می‌بینید و آن را ادامه و ادامه می‌دهم تا به آخر برسم این یک آزمایش است همانطور که می‌بینید و آن را ادامه و ادامه می‌دهم تا به آخر برسم این یک آزمایش است همانطور که می‌بینید و آن را ادامه و ادامه می‌دهم تا به آخر برسم این یک آزمایش است همانطور که می‌بینید و آن را ادامه و ادامه می‌دهم تا به آخر برسم این یک آزمایش است همانطور که می‌بینید و آن را ادامه و ادامه می‌دهم تا به آخر برسم این یک آزمایش است همانطور که می‌بینید و آن را ادامه و ادامه می‌دهم تا به آخر برسم این یک آزمایش است همانطور که می‌بینید و آن را ادامه و ادامه می‌دهم تا به آخر برسم این یک آزمایش است همانطور که می‌بینید و آن را ادامه و ادامه می‌دهم تا به آخر برسم این یک آزمایش است همانطور که می‌بینید و آن را ادامهی‌دهم تا به آخر برسم این یک آزمایش است همانطور که می‌بینید و آن را ادامه و ادامه می‌دهم تا به آخر برسم این یک آزمایش است همانطور که می‌بینید و آن را ادامه و ادامه می‌دهم تا به آخر برسم این یک آزمایش است همانطور که می‌بینید و آن را ادامه و ادامه می‌دهم تا به آخر برسم این یک آزمایش است همانطور که می‌بینید و آن را ادامه و ادامه می‌دهم تا به آخر برسم این یک آزمایش است همانطور که م تا به آخر برسم این یک آزمایش است همانطور که می‌بینید و آن را ادامه و ادامه می‌دهم تا به آخر برسم این یک آزمایش است همانطور که می‌بینید و آن را ادامه و ادامه می‌دهم تا به آخر برسم این یک آزمایش است همانطور که می‌بینید و آن را ادامه و ادامه می‌دهم تا به آخر برسم این یک آزمایش است همانطور که می‌بینید و آن را ادامه و ادامه می‌دهم تا به آخر برسم این یک آزمایش است همانطور که می‌بینید و آن را ادامه و ادامه می‌دهم تا به آخر برسم این یک آزمایش است همانطور که می‌بینید و آن را ادامه و ادامه می‌دهم تا به آخر برسم 
\end{titled-frame}
\end{document}