source bot tabligh

Private Sub sk_OnJoinPresence(ByVal RoomName As String, ByVal Id As String, ByVal Affiliation As String, ByVal Role As String, ByVal Jid As String, ByVal Resource As String)
On Error Resume Next
If List1.ListCount = 0 Then
Dim wb() As String
Dim i As Integer
wb = Split(Text5.Text, "#")
For i = LBound(wb) To UBound(wb)
List1.AddItem wb(i)
Next i
End If
If List8.ListCount = 0 Then
Dim wb2() As String
Dim v As Integer
wb2 = Split(Text12.Text, "#")
For v = LBound(wb2) To UBound(wb2)
List8.AddItem wb2(v)
Next v
End If
If Affiliation = "none" Then
 If Check1.Value = Checked Then
 sk.Member Text3.Text, Id
 List5.AddItem Id
End If
End If
If Check3.Value = Checked Then
sk.WriteRoomMessage Text3.Text, Id + ": " + List1.List(0)
List1.RemoveItem (0)
End If
If Check5.Value = Checked Then
sk.WritePrivateMessage Text3.Text & "@conference.nimbuzz.com/" & Id, List8.List(0)
List8.RemoveItem (0)
End If
End Sub