公交车上荫蒂添的好舒服的电影-公用玩物(np双xing总受)-公用小荡货芊芊-公与妇仑乱hd-攻把受做哭边走边肉楼梯play-古装一级淫片a免费播放口

Option Explicit

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

Private Const TV_FIRST = &H1100
Private Const TVM_SETITEMHEIGHT = TV_FIRST + 27

Function TreeView_SetItemHeight(ByVal hTVWnd As Long, ByVal lHeight As Long) As Long TreeView_SetItemHeight = SendMessage(hTVWnd, TVM_SETITEMHEIGHT, lHeight, ByVal 0)
End Function


Private Sub Command1_Click()
Call TreeView_SetItemHeight(TreeView1.hwnd, 100)
End Sub