Visual Basic

Set OPCMyserver = New OPCServer
        OPCMyserver.Connect Selectedserver.Caption           'We try to connect to OPC server
        Selectedname = Selectedserver.Caption
        Set OPCMygroups = OPCMyserver.OPCGroups         'We load the OPC Groups
 
        OPCMygroups.DefaultGroupDeadband = 0
        OPCMygroups.DefaultGroupIsActive = True
        OPCMygroups.DefaultGroupUpdateRate = 100
              

        
        Set OPCMygroup = OPCMygroups.Add("Group_1")     'We add a group, the name is not important
                       
        Set OPCMyitems = OPCMygroup.OPCItems            'We load the OPC Items located in the OPC Group
  
        Set OPCMyBrowser = OPCMyserver.CreateBrowser    'For the navigation in the OPC server
        OPCMyBrowser.Showbranches

Private Sub OPCtree_NodeClick(ByVal SelectedNode As Node)
Dim itemnaam As String
Dim itemteller As Long
Dim anItem As OPCItem

Itemlist.ListItems.Clear
OPCMyBrowser.MoveToRoot
Set SelectedNode = OPCtree.SelectedItem
browseposition SelectedNode.Key

OPCMyBrowser.ShowLeafs

itemteller = OPCMyBrowser.count
    
    For Each vName In OPCMyBrowser
        itemnaam = "" + OPCMyBrowser.GetItemID(vName)
        Itemlist.ListItems.Add , , itemnaam
    Next vName
    Dim I As Integer
         
        
    For I = 1 To itemteller             'We add all the OPC Items of the ListView to the Collection of OPC Items
            
         OPCItemIDs(1) = Itemlist.ListItems(I)
         OPCMyitems.AddItems 1, OPCItemIDs, ClientHandles, ItemServerHandles, Errors
    Next I
   
    OPCMygroup.IsActive = Not OPCMygroup.IsActive           'Necessary to refresh data
    OPCMygroup.IsSubscribed = Not OPCMygroup.IsSubscribed   'Necessary to refresh data
    OPCMygroup.UpdateRate = Val(100)            'Use the refresh time

    For I = 1 To Itemlist.ListItems.count                          'For all the items in the ListView
   
    For Each anItem In OPCMygroup.OPCItems                          'For all OPC Items
        
        anItem.Read OPCDevice                                       'Read the item, and the Item Id is the same than the current name in the ListView...
        If anItem.ItemID = Itemlist.ListItems(I) Then
            Itemlist.ListItems(I).SubItems(1) = anItem.Value      '...get the Item Value...
            Itemlist.ListItems(I).SubItems(2) = anItem.TimeStamp  '...get the Item TimeStamp...
            Itemlist.ListItems(I).SubItems(3) = anItem.Quality    '...get the Item Quality
            Exit For
        End If
    Next anItem
    
  Next I
    Set anItem = Nothing
    OPCMyBrowser.MoveToRoot
        
End Sub

Private Sub browseposition(ByVal Positie As String)
    
    Dim I As Integer
    Dim NormalPosition As String
    Dim comparestring As String
    Dim teller As Integer
    Dim bfound As Boolean

    OPCMyBrowser.MoveToRoot
    NormalPosition = Positie

         OPCMyBrowser.Showbranches
         For Each vName In OPCMyBrowser
         comparestring = "" + vName
         teller = Len(comparestring)
        If Left(NormalPosition, Len(comparestring)) = comparestring Then: bfound = True: Exit For
         Next vName
If bfound Then
           Do While (Len(NormalPosition)) > 0
                OPCMyBrowser.MoveDown (comparestring)
                comparestring = "" + Mid(NormalPosition, (Len(comparestring) + 2))
                NormalPosition = comparestring
        Loop
Else
    
    MsgBox "No Match was Found for " & NormalPosition, vbInformation, "Match Failure"

End If
                
End Sub

Declare Function SetParent Lib "user32" (ByVal hWndChild As IntPtr, ByVal hWndNewParent As IntPtr) As IntPtr
Declare Function WinExec Lib "kernel32" (ByVal lpCmdLine As String, ByVal nCmdShow As Long) As Long
Declare Function FindWindow Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim nHwnd As Long
        ' run notepad
        WinExec("notepad.exe", 1)
        ' find its hwnd
        nHwnd = FindWindow(Nothing, "Untitled - Notepad") ' <-- Error

        ' Note you must supply the EXACT Caption of the window)
        ' force it inside our form
        SetParent(nHwnd, Me.Handle.ToInt32)
        ' size it
        Dim nLeft, nTop, nWidth, nHeight As Integer
        nLeft = Me.Panel11.Left
        nTop = Me.Panel11.Top
        nWidth = Me.Panel11.Width
        nHeight = Me.Panel11.Height
        SetWindowPos(nHwnd, 1, nLeft, nTop, nWidth, nHeight, 64)

    End Sub