Thanks
Just to give something back here is the code. The code in red is what i changed. It works
Thanks to all again
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim connectarray(20, 20)
Dim p As New...