Flickering problem

[Ace08]

uhm guy can someone tell me whats wrong with my script the delimiter label and the inputbox keeps flickering

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

NewFormFunc()
Func NewFormFunc()
    $NewForm = GUICreate("New Tie-Up", 800 ,600,-1,-1);New Form GUI
    GUICtrlCreateLabel("Conduit Name", 10, 15)
    GUICtrlCreateLabel("Locator Code", 235, 15)
    GUICtrlCreateLabel("Short Code", 345, 15)
    $ConName = GUICtrlCreateInput("", 80, 8, 150, 20)
    $LCode = GUICtrlCreateInput("", 302, 8, 35, 20)
    $SCode = GUICtrlCreateInput("", 400, 8, 30, 20)
    GUICtrlCreateGroup("Layout", 10, 40, 90, 80)
    $LLine = GUICtrlCreateRadio("Line", 15, 60, 50, 20)
    $LDelim = GUICtrlCreateRadio("Multi-Line", 15, 80, 62, 20)
    GUICtrlCreateGroup("", -99, -99, 1, 1)  ;close group
    $Tracking = GUICtrlCreateCheckbox("Own Tracking Number?", 110, 40, 150, 20)
    GUICtrlSetState($Tracking, $GUI_CHECKED)
    $Back = GUICtrlCreateButton("Back", 710, 565, 80)
    GUICtrlCreateGroup("", 100, 50, 80, 70)
    $DDel = GUICtrlCreateRadio("Position", 110, 70, 60, 20)
    $DPos = GUICtrlCreateRadio("Delimiter", 110, 90, 60, 20)
    GUICtrlCreateGroup("", -99, -99, 1, 1)  ;close group
    $a = GUICtrlCreateLabel("Delimiter", 190, 60,Default,Default,$WS_DISABLED)
    $Delim = GUICtrlCreateInput("", 200, 80, 15, 20,$WS_DISABLED)
    GUISetState() 
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                Exit
            Case $Back
                GUIDelete($NewForm)
                MainFormFunc()
            Case $DDel And BitAND(GUICtrlRead($DDel), $GUI_CHECKED) = $GUI_CHECKED
                If GUICtrlGetState($a) = 144 Then
                    GUICtrlSetState($a, $GUI_ENABLE)
                    GUICtrlSetState($Delim, $GUI_ENABLE)
                Else
                EndIf
            Case $DPos And BitAND(GUICtrlRead($DPos), $GUI_CHECKED) = $GUI_CHECKED
                If GUICtrlGetState($a) = 80 Then
                    GUICtrlSetState($a, $GUI_DISABLE)
                    GUICtrlSetState($Delim, $GUI_DISABLE)
                Else
                EndIf
        EndSwitch
    WEnd    
EndFunc

[trancexx]

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Back
            GUIDelete($NewForm)
            MainFormFunc()
        Case $DDel ;And BitAND(GUICtrlRead($DDel), $GUI_CHECKED) = $GUI_CHECKED
;~                 If GUICtrlGetState($a) = 144 Then
            GUICtrlSetState($a, $GUI_ENABLE)
            GUICtrlSetState($Delim, $GUI_ENABLE)
;~                 Else
;~                 EndIf
        Case $DPos ;And BitAND(GUICtrlRead($DPos), $GUI_CHECKED) = $GUI_CHECKED
;~                 If GUICtrlGetState($a) = 80 Then
            GUICtrlSetState($a, $GUI_DISABLE)
            GUICtrlSetState($Delim, $GUI_DISABLE)
;~                 Else
;~                 EndIf
    EndSwitch
WEnd