Visual Basic

Public Sub abcd(ByRef element As System.Windows.Forms.Control)
    CType(element, PictureBox).Image = Me.imlMain.Images("Image1")
End Sub

Public Sub abcd(ByRef element As System.Windows.Forms.Control)
    Dim PB As PictureBox = TryCast(element, PictureBox)
    If PB IsNot Nothing Then PB.Image = Me.imlMain.Images("Image1")
End Sub

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