Function returning control via CType. Is this risk-free?

Question

I want an easy way to get a TabPage's child (user)control without writing CType() functions everywhere.
For this I created a function that returns the control via CType:
Private Function ChildIRCControl() As IRCControl
Return CType(Me.TabControl1.TabPages(Me.TabControl1.SelectedIndex).Controls(1), IRCControl)
End Function
Now, is this risk-free to do or are there any chances that it will bug or don't work in some cases?
Thanks
//Visual Vincent
EDIT:
Now to rephrase and explain my badly written question:
The user is able to create new tabs, and for each new tab a IRCControl (which is a UserControl) is added to the tab's controlcollection.
Now there's no problem doing the above. BUT since the tabs are created programmatically, I cannot get the control inside the tabpage without some kind of cast function.
Example of creating a new tab:
Private Sub CreateNewTab()
Dim IRCc As New IRCControl 'This is a normal UserControl.
Me.TabControl1.TabPages.Add("New Tab")
Me.TabControl1.TabPages(Me.TabControl1.SelectedIndex).Controls.Add(<a control that has nothing to do with this question>)
Me.TabControl1.TabPages(Me.TabControl1.SelectedIndex).Controls.Add(IRCc)
End Sub
Now to access the UserControl in the currently selected tab I need some kind of Cast function. I use CType for this:
CType(Me.TabControl1.TabPages(Me.TabControl1.SelectedIndex).Controls(1), IRCControl)
But typing this long CType function in every If statement needed and every Loop used takes time, and is horrible to read.
Now, will it work just like the normal CType if I access it like this instead?
Private Function ChildIRCControl() As IRCControl 'The UserControl
Return CType(Me.TabControl1.TabPages(Me.TabControl1.SelectedIndex).Controls(1), IRCControl)
End Function
Private Sub ModifyTextBox() 'Example
ChildIRCControl().TextBox1.Text = "Hello World!"
End Sub
Hope this explanation is better for you guys, and sorry for not bringing all this up before.
I hope your day has been better than yesterday, but that it's worse than tomorrow...
Please mark as answer if I solved your problem. :)

Answer 1

Now, is this risk-free to do or are there any chances that it will bug or don't work in some cases?
To make it safe you would subclass the Tab and TabPage controls and make this method a function of the new Tab.  Then, that class would include code to ensure that only your custom tab pages were added, and that for each added tab page the first
control was the correct type - presumably creating it automatically or from a value passed to it in the constructor.  That control is then a property of the tab page, and there is no need to use the Controls collection or do any type conversion.
The problem is that you actually have no control over the order of items added into the Controls array if you are using the designer.   Even if you are sure that each tab page has one of the controls, it might not be at index 1.  
You could scan the tab page Controls collection, but if there are several of that control type then you also need a way to know which one you really want.  That's what your code should be checking.   If you correctly identify the control in
the collection there is no need for CType - it's already the correct type.   You can check the type without trying to do the conversion by using TypeOf.  See
https://msdn.microsoft.com/en-us/library/0ec5kw18.aspx
Thanks for the answer.
I guess I could have added this to my initial question too: I'm creating the TabPages and UserControls programmatically and that's why I need to use some kind of Cast function. There are two controls in each tabpage, and they're added in this order:
Private Sub <Some kind of sub>()
Dim IRCc As New IRCControl 'The UserControl
<The new TabPage>.Controls.Add(<The other control>)
<The new TabPage>.Controls.Add(IRCc)
End Sub
So the only thing I wanted to know was if I could do this:
If ChildIRCControl().TextBox1.Text = "blahablaha"
ChildIRCControl().RichTextBox1.Text = "blabla"
End If
Instead of writing the long CType, or any other cast function all the time,
If CType(Me.TabControl1.TabPages(Me.TabControl1.SelectedIndex).Controls(1), IRCControl).TextBox1.Text = "blahablaha" Then
CType(Me.TabControl1.TabPages(Me.TabControl1.SelectedIndex).Controls(1), IRCControl).RichTextBox1.Text = " "blabla"
End If
as it's both a readability and writability nightmare.
And at last I apologize for the badly explaining question that I wrote.
I hope your day has been better than yesterday, but that it's worse than tomorrow...
Please mark as answer if I solved your problem. :)