Public Sub LoadFragment (FragmentIndex As Int,throwIfSelectedBefore As Boolean)
If throwIfSelectedBefore Then
If FragmentIndex=SelectedFragment Then Return
End If
Dim Fragment As Amir_Fragment
Dim FT As Amir_FragmentTransaction
FT.Initialize
Select FragmentIndex
Case 1
Dim First As FirstFragment
First.Initialize
Fragment=First.Fragment
Case 2
Dim Second As SecondFragment
Second.Initialize
Fragment=Second.Fragment
End Select
If throwIfSelectedBefore Then
SetAnimation(FT,FragmentIndex,SelectedFragment)
Else
FT.Transition=FT.TRANSIT_NONE
End If
FT.Replace3(Content,Fragment)' <--------- It makes an error
FT.Commit
SelectedFragment=FragmentIndex
End Sub