Visual Basic

for each mi as menuitem in frmmain.definstance.controls
  if mi.visible = true then
       'your code
  end if
next

Get
  Return _memberVar
End Get
Set (value as YourTypeHere)
  If value = _memberVar Then Exit Property
  _memberVar = value
  OnPropertyNameChanged()
End Set

Private X As Integer
Private Const CaptionText As String = "Enter some data"

Private Function FolderPath() As String
    Return String.Format("{0}\{1}", PathTextbox.Text, FileTextbox.Text)
End Function

Private pStringList As List(Of String)
Private ReadOnly Property StringList() As List(Of String)
    Get
        If pStringList Is Nothing Then pStringList = New List(Of String)
        Return pStringList
    End Get
End Property

Private pMyHeight As Integer
Private Property MyHeight() As Integer
    Get
        Return pMyHeight
    End Get
    Set(ByVal value As Integer)
        Dim H As Integer = MinHeight
        If value > MaxHeight Then
            H = MaxHeight
        ElseIf value > MinHeight Then
            H = value
        End If
        pMyHeight = H
        ResizeMe()
    End Set
End Property

tatchung wrote:

How do i include the ADODB component to vb6? I've searched the available components though I can't find Microsoft ActiveX Data Objects 2.5 Library or 2.6 for that matter. Is there anyway around this? Many thanks for the help