ลองเอาไปพัฒนาต่อกันนะครับ
credit nprotect_park ค๊าฟ

Private Sub Timer1_Timer()
If GetKeyState(vbKeyFx) < 0 Then
x = Textx.Text
SendKeys x
End If
End Sub

ซ่อนข้อความในรูปแบบ *
Textbox1.PasswordChar = "*"