９５．ウインドウのタイトルを変更する

＜　使用用途　＞
ウインドウのタイトルを変更する

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞　ダウンロード・・・　下に書いてあるサンプルソースと同じです

　＜　説明　＞
ＡＰＩ関数のSetWindowText を使用します
SetWindowText ＝＞ウインドウのタイトルを変更する
　　＜引数＞
　　　　　hWnd：ウインドウのハンドル
　　　　　lpString：文字列　
　　＠戻り値＠
　　　　　 正常終了0以外

<　ＳＡＭＰＬＥ　＞
’ここではウインドウのタイトルを変更する処理です
'標準モジュール
Public Declare Function SetWindowText Lib "USER32" Alias "SetWindowTextA" (ByVal hWnd As Long, ByVal lpString As String) As Long

'ここからはフォーム内の処理です
Private Sub Command1_Click()
　 Dim Ret As Long
　　　 Ret = SetWindowText(Form1.hWnd, Text1.Text)　
End Sub

Private Sub Form_Load()
　　 Text1.Text = "実行を押してください"
End Sub