Public Const GWL_STYLE = (- 16 )
Public Const ES_PASSWORD As Long = &H20&
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public Sub SetXPStylePassword(PasswordTextBox As TextBox, blnPasswordFlag As Boolean)
    Dim lngCurrentStyle&, lngNewStyle&
    lngCurrentStyle = GetWindowLong(PasswordTextBox.hWnd, GWL_STYLE)
    If blnPasswordFlag Then
        lngNewStyle = lngCurrentStyle Or ES_PASSWORD
        With PasswordTextBox
            .FontName = "Wingdings"
            .FontSize =  9 
            .PasswordChar = Chr( 108 )
            .Height = .Height +  1 
        End With
    Else
        With PasswordTextBox
            .FontName = "MS Sans Serif"
            .FontSize =  8 
            .PasswordChar = ""
            .Height = .Height -  1 
        End With
        lngNewStyle = lngCurrentStyle And (Not ES_PASSWORD)
    End If
    SetWindowLong PasswordTextBox.hWnd, GWL_STYLE, lngNewStyle
    PasswordTextBox.Refresh
End Sub