Visual Basic

Public Declare Auto Function SendMessage Lib "user32" Alias "SendMessageA" ( _
                    ByVal hwnd As IntPtr, ByVal wMsg As Integer, _
                    ByVal wParam As Integer, ByRef lParam As LVITEM) As Integer
 
<StructLayout(LayoutKind.Sequential, CharSet := CharSet.Ansi)> _
Public Structure LVITEM
    Public mask As Integer
    Public iItem As Integer
    Public iSubItem As Integer
    Public State As Integer
    Public stateMask As Integer
    Public pszText As String
    Public cchTextMax As Integer
    Public iImage As Integer
    Public lParam As Integer
    Public iIndent As Integer
    Public iGroupId As Integer
    Public cColumns As Integer
    Public puColumns As Integer
End Structure
 
Public Const LVIF_TEXT = &H1
Public Const LVIF_IMAGE = &H2
Public Const LVIF_PARAM = &H4
Public Const LVIF_STATE = &H8
Public Const LVIF_INDENT = &H10
Public Const LVIF_GROUPID = &H100
Public Const LVIF_COLUMNS = &H200
 
Public Const LVM_FIRST = &H1000&
 
Public Const LVM_INSERTITEMA = (LVM_FIRST + 7)
Public Const LVM_INSERTITEM = LVM_INSERTITEMA
 
Public Const LVM_GETITEMCOUNT = (LVM_FIRST + 4)
 
Private Sub fAddItem(ByVal sText As String, Optional ByVal lIndex As Integer = 1, _
            Optional ByVal iIcon As Integer = -1, Optional ByVal iIndent As Integer = 0, _
            Optional ByVal lItemData As Integer = 0)
    Dim tLV As LVITEM
    Dim lR As Integer
 
    tLV.pszText = sText & vbNullChar
    tLV.cchTextMax = Len(sText) + 1
    tLV.iImage = iIcon
    tLV.iIndent = iIndent
    tLV.lParam = lItemData
    tLV.iItem = lIndex - 1
    tLV.mask = LVIF_TEXT Or LVIF_IMAGE Or LVIF_PARAM Or LVIF_INDENT
 
    lR = SendMessage(Me.ListView1.Handle, LVM_INSERTITEM, 0&, tLV)
End Sub
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
    Handles Button1.Click
    fAddItem("test")
End Sub

SELECT (lastname + ', " + firstname) AS fullname FROM myTable

C:\Windows>REGSVR32 filename.ocx

"C:\my
folder\hello"
"C:\Documents
and
Settings