SizeToFitメソッドを利用すると、コントロールに含まれるテキスト、
またはイメージに合わせてコントロールのサイズを変更することができます。
　サンプルでは、ラベルの"Caption/標題"プロパティに設定されたテキスト
をすべてを表示するように操作しています。
　モジュールを新規作成して、下記のプロシージャを作成してください。

● サンプル　●

Sub Sample()

    Dim myForm  As Form
    Dim myLabel As Label

    ' 新しいフォームを作成します。
    Set myForm = CreateForm
    ' 新しいラベルを作成します。
    Set myLabel = CreateControl(myForm.Name, _
        acLabel, , , , 500, 500)
    ' フォームを元のサイズに戻します。
    DoCmd.Restore
    ' ラベルの"Caption/標題"プロパティを設定します。
    myLabel.Caption = _
        "今日の日付：" & Date & "　只今の時間：" & Time
    ' 標題の大きさに合わせてラベルの大きさを変更します。
    myLabel.SizeToFit

End Sub

　
　このプロシージャを実行すると、ラベルの配置されたフォームが
新規作成され表示されます。

　そのラベルには、現在のシステム日付と時刻が表示されます。そして、
SizeToFitメソッドによって、その表示内容の長さにラベルのサイズが
自動的に変更されます。

● 詳細 ●

　SizeToFitメソッドの構文は、

control.SizeToFit

　で、次の引数があります。

引数　　　内容 
control　 ラベル、トグルボタン、コマンドボタン、イメージコントロール、
　　　　　非連結オブジェクトフレーム、およびサブフォーム/サブレポート
　　　　　コントロールなどのテキストやイメージを表示するコントロール。 

　SizeToFitメソッドの機能は、フォームまたはレポートのコントロールを
選択し、[書式]メニューの[サイズ変更]をポイントし、[自動調整]をクリック
した場合と同じで、フォームのデザインビューまたはレポートのデザインビュー
でのみ、コントロールに適用することができます。

　CreateControlメソッドと共にSizeToFitメソッドを使用すると、コードで作成
した新しいコントロールの大きさを変更することができます。

　テキストまたはイメージを含むすべてのコントロールのサイズが、
SizeToFitメソッドで変更できるわけではありませんので注意してください。