CueProvider for VB.NET

CueProvider.vb

Imports System.Runtime.InteropServices
Imports System.Windows.Forms

Namespace CueProvider
	Class CueProvider
		Private Const EM_SETCUEBANNER As Integer = &H1501

		<DllImport("user32.dll", CharSet := CharSet.Auto)> _
		Private Shared Function SendMessage(hWnd As IntPtr, msg As Integer, wParam As Integer, <MarshalAs(UnmanagedType.LPWStr)> lParam As String) As Int32
		End Function

		Public Shared Sub SetCue(txtBox As TextBox, text As String)
			SendMessage(txtBox.Handle, EM_SETCUEBANNER, 0, text)
		End Sub

		Public Shared Sub ClearCue(txtBox As TextBox)
			SendMessage(txtBox.Handle, EM_SETCUEBANNER, 0, String.Empty)
		End Sub

	End Class
End Namespace