Why can't the treeview function?? Please Help

[tauhu82]

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 = 2 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 = 1 
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

This is the code i used in the treeview but i all the function which i put in can't function for example the right click pop up or even the left click to make the connection can;t even work. Please can anyone help me..
Thanks alot in advance