Заголовок
VB6, Visual Basic 6, Буфер обмена, ClipBoard
ClipBoard.Clear
ClipBoard.SetText "Какое-нибудь сообщение"