Originally Posted by
Infamous Joe
Code:
Private Sub Text1_Click/Change()
Text1.PasswordChar = "*"
End Sub
Code:
Private Sub txtPassword_KeyDown(KeyCode As Integer, Shift As Integer)
If txtPassword.Text = "Password" Then
txtPassword.Text = ""
txtPassword.FontName = "Wingdings"
txtPassword.PasswordChar = "l"
End If
End Sub
Private Sub txtPassword_LostFocus()
If txtPassword.Text = "" Then
txtPassword.Text = "Password"
txtPassword.FontName = "MS Sans Serif"
txtPassword.PasswordChar = ""
End If
End Sub
Private Sub txtUsername_Click()
If txtUsername.Text = "Username" Then
txtUsername.Text = ""
End If
End Sub
Private Sub txtPassword_Click()
If txtPassword.Text = "Password" Then
txtPassword.Text = ""
txtPassword.FontName = "Wingdings"
txtPassword.PasswordChar = "l"
End If
End Sub
Private Sub txtUsername_KeyDown(KeyCode As Integer, Shift As Integer)
If txtUsername.Text = "Username" Then
txtUsername.Text = ""
End If
End Sub
Private Sub txtUsername_LostFocus()
If txtUsername.Text = "" Then
txtUsername.Text = "Username"
End If
End Sub