AutoSize a ListBox Based on its Height

Category:

Forms and Controls

Type:

Snippets

Difficulty:

Intermediate

Author:

Intelligent Solutions Inc.

Version Compatibility:

More information:

This snippet will adjust the height of a list box so that all its contents appear without a vertical scroll bar.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Option Explicit Private Declare Function SendMessage Lib "user32" _ Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _ ByVal wParam As Long, ByVal lParam As Any) As Long Private Const LB_GETITEMHEIGHT = &H1A1

Code: