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

<br />
        Dim stringD As System.Collections.Specialized.StringDictionary<br />
        stringD = Me.Context.Parameters<br />
<br />
        Dim enume As System.Collections.IEnumerator<br />
        enume = stringD.Values.GetEnumerator()<br />
<br />
        Dim directory As String<br />
        enume.MoveNext()<br />
        directory = enume.Current<br />
        System.Windows.Forms.MessageBox.Show(directory)<br />

Dim ansArray As Array

Dim myNumbers(2) As Integer ' Creates an array with 3 elements.
Dim myYears() As Integer = {2000, 2005} ' Initializes a new array with 2 elements.