aşağıdaki kodu çerçevenin tıklanma olayına ekleyip dener misiniz?

If CrcvGlnGdn = 1 Then

    Gelen_Evrak = -1

    Giden_Evrak = 0

End If

If CrcvGlnGdn = 2 Then

    Gelen_Evrak = 0

    Giden_Evrak = -1

End If