１２１．ウインドウタイトルバーの文字列の長さを取得する

＜　使用用途　＞
ウインドウタイトルバーの文字列の長さを取得する

　＜　説明　＞
ＡＰＩ関数のGetWindowTextLength を使用します
GetWindowTextLength ＝＞ウインドウタイトルバーの文字列の長さを取得する
　　＜引数＞
　　　　　hWnd：ウインドウのハンドル　　　　　
　　＠戻り値＠
　　　　　文字列の文字数

<　ＳＡＭＰＬＥ　＞

'標準モジュール
Public Declare Function GetWindowTextLength Lib "USER32" Alias "GetWindowTextLengthA" (ByVal hWnd as Long) As Long

'ここからはフォームの処理です
Private Sub Command1_Click()
　 Dim RetAs Long
　　Ｒet = GetWindowTextLength(Form1.hWnd)
End Sub