For i = 0 To 3
Dim mp As String = frmShoutcast.TextMountName.Text.Trim & "." & i.ToString
' create and intialize casting
m_nCastingUniqueID = m_audioDjAPI.CastingCreateFromStreamMixer(m_nStreamMixerUniqueID, frmShoutcast.TextServerAddress.Text, frmShoutcast.TextPwd.Text, mp, nFormat, frmShoutcast.TextStreamName.Text, frmShoutcast.TextUrl.Text, frmShoutcast.TextGenre.Text, "", frmShoutcast.TextDescription.Text, nEncodeMode, fEncodeValue, 44100, 2)
' check if casting was intialized correctly
If m_nCastingUniqueID = 0 Then
CheckConnection.Checked = False
CheckConnection.Text = "Connect"
MessageBox.Show("Cannot create casting due to the following error " & m_audioDjAPI.LastError.ToString())
Return
End If
.
.
.same codes
.
.
Next