ايران ويج

سلام
از امروز به محض كليك رويCommand براي ورود به رومها در اسپمر(البته بعد از لاگين شدن) ارورر ميده
Run time erro'5:

Invalid procedure call or argument
اين هم كدش
Private Sub Command2_Click()
If Room.Text = "" Then
If Not Inet1.StillExecuting = True Then
GetCats
Form2.Visible = True
End If
Else
If MsgBox("Befor joining to another room, you must exit " & Room.Text & vbCrLf & "Do you want to exit this room?", vbYesNo, "Roomz") = vbYes Then
Room.Text = ""
List1.Clear
Command6.Enabled = False
Winsock1.SendData ExitRoom
GetCats
Form2.Visible = True
End If
End If
End Sub
دوستان مشكل كجاست
باز هم اپديت ياهو ؟؟؟