arkadaşlar kucuk bi chat programı ile winsock olayını anlamaya calışıyorum da.

Private Sub Bgonder_Click()
If Winsock1.State = 7 Then
Winsock1.SendData Tyazi.Text
Tmsj = Tmsj & vbNewLine & "sizden > " & Tyazi
Tyazi = ""
End If
End Sub

şu komutla gonder butonuna bastığımda tyazi icindeki yazıları gonderiyor ve server da :

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim s As String
Winsock1.GetData s
Tmsj = Tmsj.Text & vbNewLine & "karşıdan gelen > " & s
End Sub


bu gelen veriyi işleyip text e ekliyor. Buraya kadar herşey tamam ama ben butona tıklandığında client e yapması gereken bişey gondermek istiyorum. bunu chat kısmından nasıl ayırabilirim ? kendi bildiğim gibi yapmaya calışınca yazı bile gondersem butondaki işlevi gercekleştiriyor


diyelim ki serverdan butona tıkladığımda clientin formunun arka plan rengi kırmızı olucak ?
__________________