$Clip = $HABObject.ClipBoard
? "IsText   = " + $Clip.IsText
? "IsFiles  = " + $Clip.IsFiles
? "IsBitMap = " + $Clip.IsBitMap

;view Clipboard contents
Select
	case $Clip.IsText
		$text = $Clip.GetText
		? "ClipBoard contains text: " + $text

	case $Clip.IsFiles
		$files = $Clip.List.GetFiles
		? "ClipBoard contains these files: "
		for each $file in $files
			? "     " + $file
		next

	case $Clip.IsBitMap
		$image = $Clip.GetBitmap
		; not sure what to do with this item.

Endselect

$Clip.Set("Put some text into the clipboard!")