Problema al llamar una variable desde otro Formulario

[DarkString]

Bueno tras resolver problema con los Sockets, me encontré con otro error al programar, tengo 2 formularios e intento enviar los datos desde el segundo, las variables y funciones están definidas en el primero. La cosa está así.

En el Formulario 1 (Form1):

Option Explicit
Dim WithEvents Server As CSocketMaster
Dim WithEvents Client As CSocketMaster


Private Sub Form_Load()
Set Server = New CSocketMaster
Set Client = New CSocketMaster
End Sub

Aquí se definen las variables y demás.

Formulario 2 (Form2), del que intento enviar los datos

Intente ésto:

Dim WithEvents Form1 As CSocketMaster ' Me permite llamar las propiedades de Csocketmaster, no es lo que quiero precisamente.


Private Sub Label1_Click()
Form1.Server.SendData (Text3.Text)
End Sub

Obvio que ésto no me funciona, Tan solo llama a las propiedades de Csocketmaster y al invocar dentro del Form2 algo como: Form1.SendData esto si me dejaría, pero yo intento hacer Form1.Server.SendData / Form1.Client.Senddata, es llamar a las variables Server y Client de Form1 como si fueran públicas y así supongo que podré enviar los datos, intente hacerlas pero no pude.

Espero vuestras respuestas y haber si alguien me puede echar una mano con ésto (;

Gracias

[cleptomano]

Te recomiendo crear un modulo y declarar tus variables de forma publica, de esta manera podrás realizar la llamada desde cualquier parte de tu proyecto

modulo1
Public WithEvents Server As CSocketMaster
Public WithEvents Client As CSocketMaster


Form1
Private Sub Form_Load()
Set Server = New CSocketMaster
Set Client = New CSocketMaster
End Sub

Form2
Private Sub Label1_Click()
Server.SendData (Text3.Text)
End Sub

[DarkString]

Iniciado por cleptomano

Te recomiendo crear un modulo y declarar tus variables de forma publica, de esta manera podrás realizar la llamada desde cualquier parte de tu proyecto

modulo1
Public WithEvents Server As CSocketMaster
Public WithEvents Client As CSocketMaster


Form1
Private Sub Form_Load()
Set Server = New CSocketMaster
Set Client = New CSocketMaster
End Sub

Form2
Private Sub Label1_Click()
Server.SendData (Text3.Text)
End Sub

Muchísimas gracias, me ha servido.