Latest Contributions by KenBuja

You can use something like this Function FindLabel( [Q1_2013],  [Q2_2013], [Q3_2013] )      if ( [Q1_2013] <> 0 ) then              var = "Q1 2013: " & [Q1_2013] & " acres" & vbnewline   end if    if ( [Q2_2013] <> 0 ) then              var =  var & "Q2 2013: " & [Q2_2013] & " acres" & vbnewline   end if    if ( [Q3_2013] <> 0 ) then              var =  var & "Q3 2013: " & [Q3_2013] & " acres" & vbnewline   end if       FindLabel = var  End Function ... View more

Here's one way to do this: Dim pCmdItem As ESRI.ArcGIS.Framework.ICommandItem Dim pUID As New ESRI.ArcGIS.esriSystem.UID pUID.Value = "esriArcMapUI.AddDataCommand" pCmdItem = My.ArcMap.Application.Document.CommandBars.Find(pUID) pCmdItem.Execute() Or you can use the IGXDialog if you'd like more control over the datasets you'd like to add. Here's one example of how to use it ... View more

Take a look at this thread, which gives a couple of examples of some code how to do that. When I use this in an application with an open form, minimizing ArcGIS will also minimize the form, and I don't have to use the "topMost" setting. ... View more

From your other thread, are you looking for something like this? Function FindLabel ( [LOCID] , [Silica]  )   if ( [Silica] > 0) then      FindLabel = [LOCID] & vbNewLine & [Silica]    else     FindLabel = [LOCID]   end if  End Function ... View more