Private Sub Form_Close()
Forms!Form1.Metin9 = Me.Metin727
End Sub
 
Private Sub HandleIndent(strNewSelect As String)
    If Len(strSelected) > 0 Then
        If strSelected <> strNewSelect Then
            Me(strSelected).SpecialEffect = 0
        End If
    End If
    strSelected = strNewSelect
    Me(strSelected).SpecialEffect = 2
    Me!Day = Me(strSelected).Caption
    Forms!Form1.Metin9 = Me.Metin727
 
End Sub