Sub AppletInfo
      Dim intNumApplets, objCurrApplet, intI
      intNumApplets = Application.Applets.Count
      If (0 = intNumApplets) Then
             Console.Print "There are no applets in the current ArcPad session."
             Exit Sub
      End If
      For intI = 1 to intNumApplets
            Set objCurrApplet = Application.Applets (intI)
            Console.Print "Applet " & CStr(intI) & " is called " & objCurrApplet.Name
      Next
      Set objCurrApplet = Nothing
End Sub

function AppletInfo()
{
      var objCurrApplet
      var intNumApplets = Application.Applets.Count;
      if (0 == intNumApplets)
      {
            Console.Print("There are no applets in the current map.");
            return;
      }
      for (var intI = 1; intI<=intNumApplets; intI++)
      {
            objCurrApplet = Application.Applets (intI);
            Console.Print("Applet " + intI + " is called " + objCurrApplet.Name);
      }
      objCurrApplet = null;
}