Option Compare Database
Option Explicit

Private Declare Function CallNextHookEx Lib "user32" _
                                    (ByVal hHook As Long, _
                                    ByVal ncode As Long, _
                                    ByVal wParam As Long, _
                                    lParam As Any) As Long

Private Declare Function GetModuleHandle Lib "kernel32" _
                                    Alias "GetModuleHandleA" _
                                    (ByVal lpModuleName As String) As Long

Private Declare Function SetWindowsHookEx Lib "user32" _
                                    Alias "SetWindowsHookExA" _
                                    (ByVal idHook As Long, _
                                    ByVal lpfn As Long, _
                                    ByVal hmod As Long, _
                                    ByVal dwThreadId As Long) As Long

Private Declare Function UnhookWindowsHookEx Lib "user32" _
                                    (ByVal hHook As Long) As Long

Private Declare Function SendDlgItemMessage Lib "user32" _
                                    Alias "SendDlgItemMessageA" _
                                    (ByVal hDlg As Long, _
                                    ByVal nIDDlgItem As Long, _
                                    ByVal wMsg As Long, _
                                    ByVal wParam As Long, _
                                    ByVal lParam As Long) As Long

Private Declare Function GetClassName Lib "user32" _
                                    Alias "GetClassNameA" _
                                    (ByVal hwnd As Long, _
                                    ByVal lpClassName As String, _
                                    ByVal nMaxCount As Long) As Long

Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long


Private Const EM_SETPASSWORDCHAR = &HCC
Private Const WH_CBT = 5
Private Const HCBT_ACTIVATE = 5
Private Const HC_ACTION = 0

Private hHook As Long

Private Function NoviProces(ByVal lngCode As Long, _
                        ByVal wParam As Long, _
                        ByVal lParam As Long) As Long
    Dim RetVal
    Dim strClassName As String, lngBuffer As Long
    
    If lngCode < HC_ACTION Then
        NoviProces = CallNextHookEx(hHook, lngCode, wParam, lParam)
        Exit Function
    End If
    
    strClassName = String$(256, " ")
    lngBuffer = 255
    
    If lngCode = HCBT_ACTIVATE Then
    
        RetVal = GetClassName(wParam, strClassName, lngBuffer)
       
        If Left$(strClassName, RetVal) = "#32770" Then
        
            
            SendDlgItemMessage wParam, _
                                &H1324, _
                                EM_SETPASSWORDCHAR, _
                                Asc("*"), _
                                &H0
        End If
    
    End If
    

    CallNextHookEx hHook, lngCode, wParam, lParam

End Function

Public Function InputBoxPas(Prompt, _
                           Optional title, _
                           Optional Default, _
                           Optional XPos, _
                           Optional YPos, _
                           Optional HelpFile, _
                           Optional Context) As String
                           
    Dim lngModHwnd As Long, lngThreadID As Long

    lngThreadID = GetCurrentThreadId
    lngModHwnd = GetModuleHandle(vbNullString)
    
    hHook = SetWindowsHookEx(WH_CBT, AddressOf NoviProces, lngModHwnd, lngThreadID)
    InputBoxPas = InputBox(title, _
                            Default, _
                            XPos, _
                            YPos, _
                            HelpFile, _
                            Context)
    UnhookWindowsHookEx hHook

End Function