There, you have to put the following key:

[Add-Ins32]
vbscc=1

For more information, visit the next link:

http://social.msdn.microsoft.com/Forums/en-US/vssourcecontrol/thread/ba5dd659-0b14-48ce-b51d-9478693b632b

The standard VB listboxes don`t support horizontal Scrollbars, only vertical ones. Here's an API work-around to get you one!

' In General Declarations Private Declare Function SendMessageByNum Lib "user32" _ Alias "SendMessageA" (ByVal hwnd As Long, ByVal _ wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Const LB_SETHORIZONTALEXTENT = &H194

To display the horizontal scroll bar, you then just call

SendMessageByNum List1.hwnd, LB_SETHORIZONTALEXTENT, 250, 0

List1.hwnd is replaced with the name of your list box, and 250 is replaced with the width you want the scroll bar to be. If you give a width of 0, then the scrollbar will be disappear. This sub routine will automatically workout the greatest width needed.

Sub lstAddHScroll(lst as ListBox)     ' depends on the scalewidth     ' if scalemode is Twips then Divide M by 15 to get Pixels

    For a=0 to lst.listcount-1         if me.textwidth(lst.list(a))>m then m=me.textwidth(lst.list(a))...

The following command will allow you to alter values inside an AddItem grid already loaded:

For intCounter = 0 To grdDataGrid.Rows - 1
        grdDataGrid.Bookmark = grdDataGrid.AddItemBookmark(intCounter)
        grdDataGrid.Columns(KGRD_Order).Value = sdbcOrders.Columns(0).Text
    Next intCounter

Set objParameter = New ADODB.Parameter         With objParameter         .Direction = adParamInput          .Type = adInteger         .Value = varValue     End With         Set objCommand = New ADODB.Command         With objCommand         .Parameters.Append objParameter         .ActiveConnection = cnDB ' (connection already opened)         .CommandType = adCmdStoredProc         .CommandText = s_ProcedureName     End With         Set rs = objCommand.Execute         Set rs = Nothing     Set objCommand = Nothing     Set objParameter = Nothing ...

It sometimes happens that you want to format the data of a Janus Gridex, but it's possible that the prefabricated formats doesn't satisfy you. An example of it would be the percentage format.

 

You want to display columns with percentages, but if you select "Percent" as format of the column, the data is shown multiplied by a hundred because we are used to working with values from 0 to 100 instead of 0 to 1, which is what the grid expects. A suitable solution would be convert it to text and apply the format in the UnboundReadData event, but then the column would not be sorted numerically as you want. 

So, I found it very easy to apply formats by putting something like this in the Form_Load:

 

    For intCounter= KGRD_ComList1 To KGRD_ComList3         grdCommissions.Columns(intCounter).Format = "0.00""%"""     Next intCounter



 

I've designed the "0.00""%""...