Visual Basic

Public Class Globals
   Public Shared UserID As Integer

   ' Shared constructor. Initializes shared member variables.
   Shared Sub New()
      UserID = -1
   End Sub
End Class

Dim id As Integer = Globals.UserID

' Define win32 functions.
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

' Analyzes given listbox and displays a horizontal scroll bar if needed.
Public Sub UpdateHorizontalScrollbar(lstCtrl As ListBox)
   Dim fMax As Single
   Dim fValue As Single
   Dim iIndex As Integer

   ' Get length of longest text in listbox.
   fMax = 0
   For iIndex = (lstCtrl.ListCount - 1) To 0 Step -1
      fValue = TextWidth(lstCtrl.List(iIndex))
      If (fValue > fMax) Then fMax = fValue
   Next

   ' Convert max text length to pixels.
   fMax = fMax / Screen.TwipsPerPixelX

   ' Increase length for checkboxes and margins (in pixels).
   If (1 = lstCtrl.Style) Then fMax = fMax + 13 ' Offset for checkbox.
   fMax = fMax + 4                              ' Offset for margins.

   ' Set horizontal scrollbar length.
   SendMessage lstCtrl.hWnd, &H194, CLng(fMax) + 1, 0&
End Sub