'None...

'----------------------------------------------------------------------- 'Custom technique for 'Search Cue-like' effect without any API 'Very easily create same effect as in Windows XP 'Form1 ' CommandButtons - 2 (Command1, Command2) ' TextBoxes - 2 (Text1, Text2) ' Text1 - Testing the Cue-Effect here... ' Text2 - Custom Cue Text ' Command1- Enable effect [Command1.Caption = "Enable"] ' Command2- Disable effect [Command2.Caption = "Disable"] 'Just re-design codes to get it as per your 'requirement. 'Please contact in case of errors, feedbacks, etc... 'Email: dippu75@hotmail.com '----------------------------------------------------------------------- Dim bInternalCall As Boolean Dim bEnabled As Boolean Dim CueColor As OLE_COLOR Dim sCueText As String Private Sub Command1_Click() If bEnabled Then Exit Sub bEnabled = True If Trim$(Text1) = "" Then Call Text1_LostFocus End Sub Private Sub Command2_Click() If Not bEnabled Then Exit Sub bEnabled = False If Text1 = Text2 Then bInternalCall = True Text1 = "" End If End Sub Private Sub Form_Load() bKeyChange = False bEnabled = False bLastState = False CueColor = vbGrayText Text1 = "" sCueText = "Enter your search text here!" Text2 = sCueText End Sub Private Sub Text1_Change() If bInternalCall Then bInternalCall = False Exit Sub End If If Not (Text1.ForeColor = vbButtonText) Then Text1.ForeColor = vbButtonText End Sub Private Sub Text1_GotFocus() If bEnabled Then If (Text1 = Text2) Or (Trim$(Text1) = "") Then bInternalCall = True Text1 = Empty Else SelTextBox Text1 End If Else SelTextBox Text1 End If End Sub Private Sub Text1_LostFocus() If bEnabled Then If Not (Text1 = "") And Not (Text1 = Text2) Then If Not (Text1.ForeColor = vbButtonText) Then Text1.ForeColor = vbButtonText Exit Sub End If If Not (Text1.ForeColor = CueColor) Then Text1.ForeColor = CueColor If Trim$(Text2) = "" Then Text2 = sCueText bInternalCall = True Text1 = Text2 Else Text1.ForeColor = vbButtonText End If End Sub Private Sub Text2_GotFocus() SelTextBox Text2 End Sub Public Sub SelTextBox(tb As TextBox) tb.SelStart = 0 tb.SelLength = Len(tb) End Sub