الرجاء النظر للكود التالي(ارجو من الخبراء الرد )

السلام عليكم ورحمة الله وبركاته

لما اشغل البرنا مج وادخل الip address البرنامج ما يشتغل

لكن لما ادخل البرنامج مرة ثانيه البرنامج يشتغل واذا اخليه على كمبيوتر بعيد مايشتغل ليشششششش؟؟؟؟؟؟؟؟؟

Dim b As Integer

Private Sub CONNECT_Click()

wsk.Close

wsk.CONNECT IP.Text, Val(PO.Text)

End Sub

Private Sub SEND_Click()

If wsk.State = 7 Then

wsk.SendData " hi bi "

DoEvents

End If

End Sub

Private Sub wsk_Connect()

Label1.Caption = " CONNECTION IS ESTABLISHED ....."

SEND.Enabled = True

End Sub

Private Sub wsk_SendComplete()

Label1.Caption = " COMPLETE SENDING DATA..."

SEND.Enabled = False

End Sub

Private Sub wsk_SendProgress(ByVal bytesSent As Long, ByVal bytesRemaining As Long)

Label1.Caption = " DATA SEND IS IN PROGRESS ..."

End Sub

Private Sub IP_Change()

Label1.Caption = IP.Text

End Sub

Private Sub PO_Change()

b = Val(PO.Text)

Label1.Caption = b

End Sub

جاوبونه الله يجزيكم وشكرا اخوكم زكريا