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

<br />
Error	1	The "ResolveAssemblyReference" task failed unexpectedly.<br />
System.IO.PathTooLongException: The specified path, file name, or both are too long. The fully qualified file name must be less than 260 characters, and the directory name must be less than 248 characters.<br />
   at System.IO.Path.NormalizePathFast(String path, Boolean fullCheck)<br />
   at System.IO.Path.GetDirectoryName(String path)<br />
   at Microsoft.Build.Tasks.SystemState.FileExists(String path)<br />
   at Microsoft.Build.Tasks.Resolver.FileMatchesAssemblyName(AssemblyNameExtension assemblyName, Boolean isPrimaryProjectReference, Boolean wantSpecificVersion, Boolean allowMismatchBetweenFusionNameAndFileName, String pathToCandidateAssembly, ResolutionSearchLocation searchLocation)<br />
   at Microsoft.Build.Tasks.Resolver.ResolveAsFile(String fullPath, AssemblyNameExtension assemblyName, Boolean isPrimaryProjectReference, Boolean wantSpecificVersion, Boolean allowMismatchBetweenFusionNameAndFileName, ArrayList assembliesConsideredAndRejected)<br />
   at Microsoft.Build.Tasks.Resolver.ResolveFromDirectory(AssemblyNameExtension assemblyName, Boolean isPrimaryProjectReference, Boolean wantSpecificVersion, String[] executableExtensions, String directory, ArrayList assembliesConsideredAndRejected)<br />
   at Microsoft.Build.Tasks.DirectoryResolver.Resolve(AssemblyNameExtension assemblyName, String rawFileNameCandidate, Boolean isPrimaryProjectReference, Boolean wantSpecificVersion, String[] executableExtensions, String hintPath, String assemblyFolderKey, ArrayList assembliesConsideredAndRejected, String& foundPath, Boolean& userRequestedSpecificFile)<br />
   at Microsoft.Build.Tasks.AssemblyResolution.ResolveReference(IEnumerable`1 jaggedResolvers, AssemblyNameExtension assemblyName, String rawFileNameCandidate, Boolean isPrimaryProjectReference, Boolean wantSpecificVersion, String[] executableExtensions, String hintPath, String assemblyFolderKey, ArrayList assembliesConsideredAndRejected, String& resolvedSearchPath, Boolean& userRequestedSpecificFile)<br />
   at Microsoft.Build.Tasks.ReferenceTable.ResolveReference(AssemblyNameExtension assemblyName, String rawFileNameCandidate, Reference reference)<br />
   at Microsoft.Build.Tasks.ReferenceTable.SetPrimaryAssemblyReferenceItem(ITaskItem referenceAssemblyName)<br />
   at Microsoft.Build.Tasks.ReferenceTable.SetPrimaryItems(ITaskItem[] referenceAssemblyFiles, ITaskItem[] referenceAssemblyNames, ArrayList exceptions)<br />
   at Microsoft.Build.Tasks.ResolveAssemblyReference.Execute(FileExists fileExists, DirectoryExists directoryExists, GetDirectories getDirectories, GetAssemblyName getAssemblyName, GetAssemblyMetadata getAssemblyMetadata, GetRegistrySubKeyNames getRegistrySubKeyNames, GetRegistrySubKeyDefaultValue getRegistrySubKeyDefaultValue, GetLastWriteTime getLastWriteTime)<br />
   at Microsoft.Build.Tasks.ResolveAssemblyReference.Execute()<br />
   at Microsoft.Build.BuildEngine.TaskEngine.ExecuteTask(ExecutionMode howToExecuteTask, Hashtable projectItemsAvailableToTask, BuildPropertyGroup projectPropertiesAvailableToTask, Boolean& taskClassWasFound)	AccountsBO<br />
<br />