VB Forum / General / August 2005

I know VB.NET can return exitcode as follows, but I don't know how to do that
with VB6.
   Function Main() As Integer
       Return 1

I want to set the "columnwidth" of my multi-column "Listbox", and I know I
have to set "columnwidth" to a string like "50;60;70" in which all numbers
are in "point", But I'm wondering how to calculate the length of a string in
points? ANy reply will be greatly appreciated. Thanks ...

Is there any good FTP control on the market that will allow multiple
connections to be open at the same time?
Right now, I'm using the Mabry control (FTP/X) and it doesn't)

I am using VB6 and would like to set up a user form consisting of 10
boxes, all set to blank by default. I would then like the user to start
in box 1 and enter a number 1-26, have that number displayed in the box.
The user would then hit enter to move to box2, etc.

Short version:  How can I put code into a dll or something that will
allow me to update a running program?
Long version:  I can make an activex dll and have a program instatiate
this thing and use the code inside the dll -- I have tried keeping the

I got the following code from a website - it works like a charm.
Private Sub CmdCreate_Click()
Option1(o).Visible = True
Check1(0).Visible = True

Is there a way to get the version number set in Project->Properties and
display it in an About box?
TIA

Can anyone tell me how to implement multi language interface in VB?
Are there are any good and free tools out there that simplifies the process
such as
automatically extracting the strings in an application to be translated?

Anyone know of any good progress bars?  I already have an app built with a
few forms, just wanted to use a progress bar before loading them without a
timer. Using vb6.

want to capture a print command, so that when someone prints to the colour
laser, a dialogue box appears and says "Do you really need to print in
colour".  If yes is selected, it will print and if no is selected it won't.
I have vb and can create the dialouge box etc, but I can't ...

I have a listbox with column header set to true, but how to set values to the
column headers, thanks.

This code I've managed to cobble together from reading/searching this
group and some help from regulars,Rick and Ken especially.Thanks.
It runs fine but really slows down on files over 2500 lines.There must
be some way to improve its speed.Any pointers or samples.?

Here's a little a background of what I'm trying to do...
Private Function ICommonHookUI_Init(Optional ByVal InitForm As Object,
Optional ByVal InitReadOnly As Boolean) As Boolean
Do

example problem
I have a small program that does four step process. Each step may call
various subs/functions or forms
The whole process may take several seconds or more. I want to display a

I have my forms border styles set to 0 (No border)
However, to give my app some variety I have a button which changes the look
to the user interface where I want the forms to display as sizable
(borderstyle = 2)