A way to Kill Character password

Private Type POINTAPI
 X As Long
 Y As Long
End Type
Private Declare Function GetClassNames Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal LpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function UpdateWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SetFocusAp Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Exper As Boolean
Private Sub Command1_Click()
Dim Point As POINTAPI, Cname As String, Resxxx As Long, LSta As Long
Dim Counter As Long, xxx As Long, Par As Long
Const Clase_Name As String = "ThunderTextBox"
Const Clase_Name2 As String = "Edit"
Exper = False
Do Until Exper = True
 Resxxx = GetCursorPos(Point)
 Resxxx = WindowFromPoint(Point.X, Point.Y)
 If Resxxx <> 0 Then
  Cname = String$(255, 0)
  xxx = GetClassNames(Resxxx, Cname, 254)
  If InStr(1, Cname, Clase_Name2, vbTextCompare) <> 0 Then
   Par = GetParent(Resxxx)
   xxx = SendMessage(Resxxx, &HCC, 0, 0)
   xxx = SetForegroundWindow(Par)
   xxx = UpdateWindow(Par)
   xxx = UpdateWindow(Resxxx)
   xxx = UpdateWindow(Resxxx)
   xxx = SetFocusAp(Resxxx)
   SetFocusAp xxx
   SetFocusAp Resxxx
  Exper = True
  End If
 End If
 DoEvents
Loop
End Sub