Applicazione Client VB10 non parte

[Simonetgl]

Spero che la sezione sia giusta,
sono un informatico ma mi occupo poco di programmazione, scusate gli eventulai strafalcioni o inesattezze.

Nel fare i primi passi con VB10 Express ho sfruttato l'esigenza lavorativa di dover creare due applicazioni che scambiassero dati e stringhe.
Una con funzioni simil "server" e l'altra "client", simile a una chat che è una delle cose più semplici da costruire ho visto.

Il problema è che compilata la Client se provo a eseguire il file Client della cartella "Release" su un altro pc (Win 7 32bit, .NET 3.5 e 4.0) immediatamente va in errore e smette di funzionare col relativo messaggio "L'applicazione ha smesso di funzionare".

Posto il codice della Client :

Imports System.NetImports System.Net.Sockets
Imports System.Text.UTF7Encoding
Public Class Client
    Dim open As TcpListener
    Dim server As TcpListener
    Dim client, host As TcpClient
    Dim dati, hdat As NetworkStream
    Dim ip As String = Nothing
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If CheckBox1.Checked = True Then
            Dim ipcol As New Collection
            Dim ipe As Net.IPHostEntry = System.Net.Dns.GetHostEntry(TextBox1.Text)
            Dim ipa() As Net.IPAddress = ipe.AddressList
            For i = 0 To ipa.GetUpperBound(0)
                ipcol.Add(ipa(i).ToString)
            Next
            ip = ipcol.Item(1)
        Else
            ip = TextBox1.Text
        End If
        client = New TcpClient
        client.Connect(ip, 2000)
        If client.Connected = True Then
            dati = client.GetStream
            MsgBox("client connesso", MsgBoxStyle.Information)
            Timer1.Start()
        Else
            MsgBox("error", MsgBoxStyle.Critical)
        End If
    End Sub


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If client.Available > 0 Then
            Dim t(client.Available - 1) As Byte
            dati.Read(t, 0, t.Length)
            Dim testo As String = UTF7.GetString(t)
            RichTextBox1.Text += vbCrLf & "server : " & testo & vbCrLf
        End If
    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim t() As Byte = UTF7.GetBytes(TextBox2.Text)
        dati.Write(t, 0, t.Length)
        RichTextBox1.Text += vbCrLf & "io :" & TextBox2.Text & vbCrLf
    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim t() As Byte = UTF7.GetBytes("info")
        dati.Write(t, 0, t.Length)
        RichTextBox1.Text += vbCrLf


    End Sub


    Private Sub Client_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load


    End Sub
End Class

Ho anche impostato la compilazione a x86 come suggerito in altri post, ma non cambia nulla.
Qualcuno con queste informazioni riesce a capire ed aiutarmi?

grazie

[oregon]

Dai maggiori dettagli sull'errore ... non tralasciare il resto.

[Simonetgl]

Dai maggiori dettagli sull'errore ... non tralasciare il resto.

L'unica informazione è il riquadro "Client ha smesso di funzionare - Windows sta cercando una soluzione all'errore", e poi non mi si visualizza nient'altro di informativo sull'errore o sulla soluzione suggerita.

Questo è il log dell'evento :
Nome registro: Application
Origine: Windows Error Reporting
Data: 26/06/2015 11:24:33
ID evento: 1001
Categoria attività:Nessuna
Livello: Informazioni
Parole chiave: Classico
Utente: N/D
Computer: Direzione
Descrizione:
Bucket errato 12584558, tipo 30
Nome evento: CLR20r3
Risposta: Non disponibile
ID CAB: 128851859334

Firma problema:
P1: client.exe
P2: 1.0.0.0
P3: 558282cc
P4: Client
P5: 1.0.0.0
P6: 558282cc
P7: d
P8: c6
P9: System.InvalidOperationException
P10:

[gibra]

Perché non metti un Try / Catch ?

[Simonetgl]

Perché non metti un Try / Catch ?

Scusa la mia ignoranza,
ho più o meno capito cosa intendi, me lo suggeriva anche la guida, ma sarebbe di preciso?

Puoi anche non rispondermi su questo,
invece come si spiega il fatto che così com'è funziona sul pc dove l'ho sviluppato e su altri con le stesse caratteristiche di quello dell'esempio no?