５５．クリップボード内のフォーマット数を取得

＜　使用用途　＞
クリップボード内のフォーマット数を取得

　＜　説明　＞
ＡＰＩ関数のCountClipboardFormatsを使用します
CountClipboardFormats　＝＞クリップボード内のフォーマット数を取得　
　　＜引数＞
　　　　　なし　　　　
　　＠戻り値＠
　　　　　フォーマット数

<　ＳＡＭＰＬＥ　＞
'標準モジュール
Public Declare Function CountClipboardFormats Lib "USER32" () As Long
'ここからはフォーム内の処理です
Private Sub Command1_Click()
　　Dim Ret As Long
　　　Ret= CountClipboardFormats
　　　MsgBox "フォーマット数は" & Ret & "個です"
End Sub