You can use something like:
Dim mrow
ListView1.HideColumnHeaders = True
ListView1.ColumnHeaders.Add
ListView1.View = lvwReport
Set mrow = ListView1.ListItems.Add(, , "ABC")
Set mrow = ListView1.ListItems.Add(, , "1234")
or
just set HideColumnHeaders on in the (Custom) viewer
You can also check by using the command arguments.
In VB go to ....
Project
Project Properties
Make
Then set the Command Line Arguments: to,say, DEV
In your code check status by ....
If Command() = "DEV" Then
MsgBox "In Dev"
Else
MsgBox "Running Live"
End If
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.