Visual Basic

function DetectActiveX (controlName)
    on error resume next
    dim res
    res = 0
    if IsObject(CreateObject(controlName)) then
        res = 1
    end if
    DetectActiveX = res
end function

function DetectActiveX (controlName)
		on error resume next
		dim tControl
		dim res
		res = 0
		set tControl = CreateObject(controlName)
		if IsObject(tControl) then
			res = 1
		end if
		DetectActiveX = res
	end function

Private Sub createlblSlotArray()
      Dim i As Short
      ReDim lblSlot(3)
      For i = 1 To 3
          lblSlot(i) = New System.Windows.Forms.Label
          With lblSlot(i)
              .Tag = i
              AddHandler .Click, AddressOf Me.lblSlot_click
          End With
      Next
      Me.Controls.AddRange(lblSlot)
      lblSlot(1).Location = New System.Drawing.Point(50, 50)
      lblSlot(2).Location = New System.Drawing.Point(100, 70)
      lblSlot(3).Location = New System.Drawing.Point(100, 90)
  End Sub

  Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label1.MouseDown
      ' what to do here to get the label? this seems to be tied to only the first label?
End Sub

   Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click 
        ' this is OK for menu item 1, how do I deal with new items I may add at run time?
End Sub