コンボボックスのテキスト部の高さを設定する(VB6.0)

　下記プログラムコードに関する補足・注意事項　
動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6)
Option　：[Option Explicit]
参照設定：
使用 API：SendMessage
その他　：このサンプルは、 Win32 APIを使用しておりますので、ある程度Win32 API が理解できる方がお使い下さい。
　　　　：

Win32 API とは
　Win32 Application Programming Interfaces の略で、32bit プロセッサで動作する Windows
95 等、以降用に対応するアプリケーションの開発者のために、公開されている関数を指します。
尚、Visual Basic 2010 等の .NET 系のバージョンや VBA からも使用する事ができます。
　ここでは、略して Win32 API　とか　Win32 API 関数とか表示スペースの関係から　API　と表記する場合があります。

１．コンボボックスのテキスト部の高さを設定する

Option Explicit　　 'SampleNo=114　WindowsXP VB6.0(SP5) 2002.05.22

'指定のウィンドウにメッセージを送る(P750)
Private Declare Function Sendmessage Lib "user32" _
　　Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, _
　　ByVal wParam As Long, lParam As Any) As Long
'項目の高さを設定する(P790)
Private Const CB_SETITEMHEIGHT = &H153

Private Sub Command1_Click()
　　Combo1.Move 300, 300, 3000
　　Dim lngCobHei As Long　　　'Combo の高さ
　　Dim lngRet　　As Long
　　With Combo1
　　　　'元の高さをピクセル単位で求める
　　　　lngCobHei = CLng(.Height \ Screen.TwipsPerPixelX)
　　　　'高さを元の高さの1.1倍に設定
　　　　lngCobHei = CLng(lngCobHei * 1.1)
　　　　'wParam　テキスト部の時= -1　　　リスト部=0 だが出来ない
　　　　lngRet = Sendmessage(.hWnd, CB_SETITEMHEIGHT, -1&, ByVal lngCobHei)
　　End With
End Sub

Private Sub Form_Load()
　　Combo1.AddItem "VBレスキュー-(花ちゃん)"
　　Combo1.AddItem "VBレスキュー-(花ちゃん)"
　　Combo1.AddItem "VBレスキュー-(花ちゃん)"
　　Combo1.AddItem "VBレスキュー-(花ちゃん)"
　　Combo1.AddItem "VBレスキュー-(花ちゃん)"
End Sub

　　上記実行結果(よく分かるようにオーバー気味に)
　

検索キーワード及びサンプルコードの別名(機能名)

ComboBox のテキスト部の高さを設定する

VBレスキュー(花ちゃん)

Visual Basic 6.0