Free for PREMIUM members
Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium
ReDim strArray(Listbox1.Count - 1) As String
Dim i As Integer
For i = 1 To Listbox1.Count
strArray(i - 1) = Listbox1(i)
Listbox1.List = strArray
Open in new window
Function OrderOutline(out_number As Variant)
Dim a As Variant
a = Split(out_number, ".")
For i = 0 To UBound(a) - 1
If CInt(a(i)) < 10 Then a(i) = "0" & a(i)
temp = temp & a(i) & "."
''' This code sorts the list
Dim i as Integer
ReDim strArray(frm.myList.ListCount - 1) As String
For i = 0 To frm.myList.ListCount - 1
frm.myList.ListIndex = i
frm.myList.List = strArray
Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.