Creare applicazione Client/Server in vb 6.0 [Operazione parte 2]

Eccoci qua!
La seconda parte del nostro programmino infernale!!!
Stiamo quindi creando l'interfaccia client. Quello che bisogna inserire nel nostro form sono:

- 4 Command Button
- 1 Winsock control
- 1 Textbox
- 1 Label



Rinominare ( campo Name ) il tutto in questo modo:

Command1 - cmdconnect
Command2 - cmddisconnect
Command3 - cmdopen
Command4 - cmdclose
Label1 - lblstatus
Text1 - txtip
Winsock1 - tcpclient



Per cambiare invece le scritte potete utilizzare il campo "Caption" per Bottoni e Label, e il campo "Text" per i Textbox!!!

Andiamo a vedere un po' di codice!!!
Fate doppio click sul bottone Connetti e inserisci questo codice!!!

Private Sub cmdconnect_Click()
cmdconnect.Enabled = False 'Disabilita il bottone connetti
lblstatus.Caption = "Connessione in corso..." 'Mostra questa scritta nel campo label
If txtip.Text = "" Then ' Se questa textbox è vuota
MsgBox "Inserisci un indirizzo IP valido", vbCritical ' mostra questo messaggio di errore
End If
tcpclient.Connect txtip.Text, 999 ' altrimenti si connette sulla porta 999 dell'indirizzo ip
End Sub