.elseif uMsg == WM_CHAR
    invoke GetAsyncKeyState, VK_CONTROL     ; allow clipboard works
    .if !( eax & 80000000h )

    .endif

SubclassWndProc6 PROC hEdit:DWORD,uMsg:DWORD,wParam:DWORD,lParam:DWORD
   .if uMsg==WM_CHAR
       invoke GetAsyncKeyState, VK_CONTROL ;allow clipboard works
        .if !( eax & 80000000h )
		mov eax,wParam
		.if (al>="0" && al<="9") || (al>="A" && al<="F") || (al>="a" && al<="f") || al==VK_BACK
			.if al>="a" && al<="f"
				sub al,20h
			.endif
			invoke CallWindowProc,OldWndProc6,hEdit,uMsg,eax,lParam
			ret
		.endif
	.endif
   .elseif uMsg==WM_KEYDOWN
		mov eax,wParam
		.if al==VK_TAB

			invoke SetFocus,Edit2
		.else
			invoke CallWindowProc,OldWndProc6,hEdit,uMsg,wParam,lParam
			ret
		.endif
   .else
		invoke CallWindowProc,OldWndProc6,hEdit,uMsg,wParam,lParam
		ret
   .endif
     xor eax,eax
     ret
SubclassWndProc6 endp

MaskedEditProc proc uses edi ebx hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM

    mov edi, $invoke(GetWindowLong, hWnd, GWL_USERDATA)
    mov ebx, [edi][256]

    ; WM_NCDESTROY is the LAST message that a window will receive - 
    ; therefore we must finally remove the old wndproc here
    .if uMsg == WM_NCDESTROY
        invoke free, edi

    .elseif uMsg == WM_CHAR

        invoke GetAsyncKeyState, VK_CONTROL     ; allow clipboard works
        .if !( eax & 80000000h )
            mov eax, wParam
            and eax, 0FFh

            .if ( BYTE PTR [edi][eax] != TRUE) && !( eax == VK_BACK )
                xor eax, eax
                ret
            .endif
        .endif

    .endif

    return $invoke(CallWindowProc, ebx, hWnd, uMsg, wParam, lParam)

MaskedEditProc endp