Visual Basic

The problem is not with the loop or doevents. When you open a form in vbmodal then the program execution stops till the window is closed. This has to be used for showing some alert or message where user. Either use vbModeless or else use a timer control to increment progress bar value. dsk:)

I could be wrong here as I have only distributed my applications with the Package and Deployment Wizard, but I am not sure that you would need to include the runtime environment to install and run an application itself. Nick Parker **The goal of Computer Science is to build something that will last at least until we've finished building it. - Unknown **

Post some of the code you are having a problem with. Nick Parker **The goal of Computer Science is to build something that will last at least until we've finished building it. - Unknown **

Try something like this, there are actually several ways to check for something like this, but they all differ slightly. Private Const INTERNET_CONNECTION_CONFIGURED = &H40 Private Const INTERNET_CONNECTION_LAN = &H2 Private Const INTERNET_CONNECTION_MODEM = &H1 Private Const INTERNET_CONNECTION_OFFLINE = &H20 Private Const INTERNET_CONNECTION_PROXY = &H4 Private Const INTERNET_RAS_INSTALLED = &H10 Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long Private Sub Form_Load() Dim Ret As Long Me.AutoRedraw = True 'retrieve the connection status InternetGetConnectedState Ret, 0& 'show the result If (Ret And INTERNET\_CONNECTION\_CONFIGURED) = INTERNET\_CONNECTION\_CONFIGURED Then Me.Print "Local system has a valid connection to the Internet, but it may or may not be currently connected." If (Ret And INTERNET\_CONNECTION\_LAN) = INTERNET\_CONNECTION\_LAN Then Me.Print "Local system uses a local area network to connect to the Internet." If (Ret And INTERNET\_CONNECTION\_MODEM) = INTERNET\_CONNECTION\_MODEM Then Me.Print "Local system uses a modem to connect to the Internet." If (Ret And INTERNET\_CONNECTION\_OFFLINE) = INTERNET\_CONNECTION\_OFFLINE Then Me.Print "Local system is in offline mode." If (Ret And INTERNET\_CONNECTION\_PROXY) = INTERNET\_CONNECTION\_PROXY Then Me.Print "Local system uses a proxy server to connect to the Internet." If (Ret And INTERNET\_RAS\_INSTALLED) = INTERNET\_RAS\_INSTALLED Then Me.Print "Local system has RAS installed." End Sub Nick Parker **The goal of Computer Science is to build something that will last at least until we've finished building it. - Unknown **

Thanks Nick

If you add your code to the subroutine Form_Paint() I think you should be able to see your rectangles when redisplaying your form. This worked for me. Private Sub Form_Paint() For i = 0 To 100 'TextOut GetWindowDC(GetActiveWindow), 50 + 10 * i, 50, str, Len(str) RetVal = Rectangle(GetWindowDC(GetActiveWindow), 20 + 10 * i, 40, 30 + 10 * i, 50) 'ProgressBar1.Value = i Next End Sub Nick Parker **So like children pointers should be left to grown ups. - Norm Alomond **

Try using something like this, I believe it will go one pixel at a time. Declare Function FloodFill Lib "gdi32" Alias "FloodFill" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long FloodFill Me.hdc, x, y, vbRed Nick Parker **So like children pointers should be left to grown ups. - Norm Alomond **

This is amazing! It worked! Many many many thanks! Thanks, ns

Private Declare Function SendMessage Lib "User" (ByVal hWnd As Long, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Long) As Long I changed it to ByVal hWnd As Long, it was originally integer from the msDN. But it still doesnt work.....:confused::confused: The msgbox doesnt fire, result = SendMessage(pBAr, 1029, 0, 0) MsgBox result /// never fires The VC client gets a com error at runtime (goes into the catch(com e) block) is: sway.exe (KERNEL32.DLL): 0xC000008F: Float Inexact Result. Desperate!

DOH! Not as far as I know... there might be a version of Delphi for .NET soon but I don't think that it will use the VS IDE.

I think you can pass it as a Long. Nick Parker **So like children pointers should be left to grown ups. - Norm Alomond **

yes. Just have tofigure out the mechanism. Also looking at postmessage....between the two. Thanks, ns

Are you still stuck on this? I'm pretty sure my buddy has done this before so I could ask him tomorrow if you're still stick (seeing as you asked this a little while ago).