C# / VB.NET - vbnet nuovo thread e apertura form mdi figlie

Salve, ho un problema con un new thread e l'apertura di form in mdi (forse non ho ben capito come
controllare i thread).
Il progetto si avvia tramite una form login che apre in hide un form Mdi e poi attiva tramite un
nuovo thread un collegamento socket con un server remoto dal quale ottiene risposta e rende
show la form Mdi.
Dal Server remoto a cadenza di ogni secondo la form Mdi ottiene data e ora del server remoto
e tramite un Delegate la scrive in una label della form mdi.
Fin quì tutto ok.
Ora la form Mdi ha una toolstrip con una serie di Btn che aprono una delle form figlie che duplica
una form diciamo di base, e quando tento di generarne ad esempio una tramite la pressione
del relativo Btn si genera un errore che dice "Impossibile creare un'istanza del controllo ActiveX
'cf906079-727a-4a8c-b532-a34d875aa99e' perché il thread corrente non è un apartment a thread singolo.",
la riga interessata dall'errore è Dim FBat As New FBat

Premetto che se non creo il nuovo thread per il socket le form figlie si generano in maniera corretta.
Sembra quasi che si sia perso il thread principale.

'nella Form Login
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOnLine.Click
FMdi.Hide()
Call Connessione_ClientSock() 'Connette Socket al Server
End Sub

'nella form mdi
Private Sub Btn_Form(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSBtn1.Click,
TSBtn2.Click, TSBtn3.Click, TSBtn4.Click, TSBtn5.Click, TSBtn6.Click, TSBtn7.Click, TSBtn8.Click,
TSBtn9.Click, TSBtn10.Click
Dim FBat As New FBat 'CREA DUPLICATO FORM
FBat.MdiParent = Me 'RENDE LA FORM FIGLIA
FBat.Show()
End Sub


'nel modulo socket

Private ClientSocket As TcpClient
Private ServerStream As NetworkStream

Private Delegate Sub DelegateAddText(ByVal str As String)
Private DelegateMdiText As New DelegateAddText(AddressOf FMdiText)
Private DelegateDataOraText As New DelegateAddText(AddressOf DataOraText)

Public SockThread As Threading.Thread = New Threading.Thread(AddressOf Ricezione_ClientSock)


Private Sub FMdiText(ByVal Stringa As String) 'Delegate causa SockThread
FMdi.Text = Stringa & " CONNESSO"
End Sub

Private Sub DataOraText(ByVal Stringa As String) 'Delegate causa SockThread
FMdi.LblDataOraSock.Text = Stringa
End Sub

Public Sub Connessione_ClientSock()
Try
ClientSocket = New TcpClient
ClientSocket.Connect(IPServer, PortaServerSock)
Call Ritardo(100)
Call Richiesta_autorizzazione()
Catch ex As Exception
ClientSocket.Close()
MessageBox.Show("errore nella connessione sock con il server"
End Try
End Sub

Private Sub Richiesta_autorizzazione()
Dim Stringa As String
If ClientSocket.Connected Then
Stringa = "COMM11" & ";" & UserSock & ";" & PasswSock & ";" & ReleasePrg & ";"
ServerStream = ClientSocket.GetStream()
Dim outStream As Byte() = _
System.Text.Encoding.ASCII.GetBytes(Stringa)
ServerStream.Write(outStream, 0, outStream.Length)
ServerStream.Flush()

SockThread.Start()

Else
Call Chiude_Sock()
End If
End Sub

Public Sub Chiude_Sock()
Dim Stringa As String
If ClientSocket.Connected Then
Stringa = "COMM18" & ";"
ServerStream = ClientSocket.GetStream()
Dim outStream As Byte() = _
System.Text.Encoding.ASCII.GetBytes(Stringa)
ServerStream.Write(outStream, 0, outStream.Length)
ServerStream.Flush()
End If
ClientSocket.Close()
End Sub


Private Sub Ricezione_ClientSock()
Dim Campo()
Dim Stringa As String = ""

Do While True

If ClientSocket.Connected = True Then
If ClientSocket.Available <> 0 Then

'RICEVE DATO
ServerStream = ClientSocket.GetStream()
Dim buffSize As Integer
Dim inStream(10024) As Byte
buffSize = ClientSocket.ReceiveBufferSize
ServerStream.Read(inStream, 0, buffSize)
Dim Dato As String = System.Text.Encoding.ASCII.GetString(inStream)

'FILTRA DATO
Select Case Dato.Substring(0, 6)

Case "COMM12"
'CONFERMA AUTENTICAZIONE RIUSCITA
Campo = Split(Dato, ";"
FLogin.Visible = False 'Nasconde FLogin
FMdi.Show() 'Apre FMdi

FMdi.Invoke(DelegateMdiText, Campo(1))


Case "COMM31"
'RICEVE DATA E ORA DAL SERVER
Campo = Split(Dato, ";"

FMdi.Invoke(DelegateDataOraText, Campo(1))
End Select
End If
End If
Application.DoEvents()

Loop
End Sub

Ma di quale ActiveX parli ? Perché usi un ActiveX con .NET ?

si, per il mio progetto devo utilizzare un ocx grafico, ecgraph.
Se lo tolgo comunque hai ragione non và in errore.
L'ho inserito nella lista degli oggetti da - casella degli strumenti - componenti com

Tuttavia (togliendo momentaneamente l'ocx) succede che aprendo una form figlia,
nel momento in cui la trascino per lo schermo si interrompe il flusso del socket per
poi riprendere una volta rilasciata la form, il che mi fà capire che in realtà non ho creato un
nuovo thread per il flusso fdati del socket, dove sbaglio ??