Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
strKEy = Node.Key
End Sub

Private Sub TreeView1_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)

If strKEy = "" Then
If TreeView1.Nodes(strKEy).Parent Is Nothing Then

If (Button = vbRightButton) Then ' if the mousebutton 2 is pressed (right)
'PopupMenu rclick ' then it calls the menu which is hidden to be shown
' at the cordinates of the mousepointer (x,y)

Else

Button = vbLeftButton
RemoteHost = TreeView1.Nodes(strKEy).Text
sckControlPanel.RemoteHost = RemoteHost
sckControlPanel.RemotePort = 8005
sckControlPanel.Connect

End If
End If
Else

sckControlPanel.Close
Call sckControlPanel_Close

End If

Data1.Refresh
End Sub

Private Sub Form_Activate()
On Error Resume Next 'just to make sure run-time error will not occur
strKEy = TreeView1.SelectedItem.Key
On Error GoTo 0
End Sub

Yes the option explicit is already enable. If anyone can help me please do so Thanks alot inadvance.