Dim Server As OPCServer Dim lastServer As String Public sServer As String Public sNode As String Private Sub LoadServerList() On Error GoTo ErrorHandler MousePointer = vbHourglass lstServers.Clear Dim Servers As Variant Servers = Server.GetOPCServers(txtNodename.Text) Dim lastIndex As Integer lastIndex = 0 Dim i As Integer For i = LBound(Servers) To UBound(Servers) lstServers.AddItem Servers(i) If Servers(i) = lastServer Then lastIndex = i - 1 Next i lstServers.Selected(lastIndex) = True MousePointer = vbDefault ErrorHandler: MousePointer = vbDefault If Err.Number <> 0 Then MsgBox Server.GetErrorString(Err.Number) End If End Sub