title: Implementing a Cue Banner to a textbox
body: <p>I have found the following code on the internet:</p>
  
  <pre><code> Imports System.Runtime.InteropServices
  
  Public Class Form1
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      SetCueText(TextBox1, "Enter Name here")
  End Sub
  
  End Class
  
  Module CueBannerText
  &lt;DllImport("user32.dll", CharSet:=CharSet.Auto)&gt; _
  Private Function SendMessage(ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wParam As Integer,       &lt;MarshalAs(UnmanagedType.LPWStr)&gt; ByVal lParam As String) As Int32
  End Function
  Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As IntPtr, ByVal hWnd2 As IntPtr, ByVal lpsz1 As String, ByVal lpsz2 As String) As IntPtr
  Private Const EM_SETCUEBANNER As Integer = &amp;H1501
  
  Public Sub SetCueText(ByVal control As Control, ByVal text As String)
      If TypeOf control Is ComboBox Then
          Dim Edit_hWnd As IntPtr = FindWindowEx(control.Handle, IntPtr.Zero, "Edit", Nothing)
          If Not Edit_hWnd = IntPtr.Zero Then
              SendMessage(Edit_hWnd, EM_SETCUEBANNER, 0, text)
          End If
      ElseIf TypeOf control Is TextBox Then
          SendMessage(control.Handle, EM_SETCUEBANNER, 0, text)
      End If
  End Sub
  End Module
  </code></pre>
  
  <p>However it gives me the following error:</p>
  
  <pre><code>'Handles' in modules must specify a 'WithEvents' variable qualified with a single identifier.
  </code></pre>
  
  <p>Does anybody know how to implement a working cue banner, or how to fix this error?</p>