Show The Transmission Time of A Win32 API In A Label

Category:

System/API

Type:

Snippets

Difficulty:

Intermediate

Author:

Patrick Lockefeer

Version Compatibility: Visual Basic 6

More information:

This API Adds 1000 numbers in less than 0.07 seconds to a ComboBox, and shows the transmission time in a Label. Note : You can change the ComboBox control if you prefer the numbers to appear in a ListBox. Controls needed : ComboBox Name : Combo1 Commandbutton Name : Command1 Label Name : Label1 (to show the Transmission time)

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
'General Declarations 'APi Win 32 declaration Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Const CB_ADDSTRING = &H143 Dim strItemText As String Dim i As Integer Dim dblTimer As Double

Code: