Hola amigos:

Tengo un proyecto en el que tengo un formulario windows (clientes) que
llama a otro segundo (ClientesDirecs), y el segundo utiliza un DataRow
de Clientes así:

taDirecs.FillByCliente(dsOfertas.ClientesDirecs,
CShort(Clientes.drCliente.Item("IdCliente")))

Y esto trabaja bien cuando la clase Clientes está como formulario de
inicio en el Proyecto.

Ahora tengo un Menú Principal, que es el nuevo formulario de inicio, y
que llama a Clientes y luego clientes llama a ClientesDirecs; y ahora
en ClientesDirecs la misma línea de instrucción, me da error de
referencia nula.

taDirecs.FillByCliente(dsOfertas.ClientesDirecs,
CShort(Clientes.drCliente.Item("IdCliente")))
--> error de referencia nula.

He intentado lo siguiente y no hay manera.

en la Clase MnuPpal:

Public Class MenuPrincipal

Friend Clientes As Clientes --> inclusive lo he declarado como
pública

Private Sub OP250000_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles OP250000.Click

Clientes = New Clientes
Clientes.ShowDialog()

End Sub

End Class

La clase clientes: (está sin cambiar)

Public Class Clientes

Friend drCliente As DataRow

Private Sub cmdDirsClte_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles cmdDirsClte.Click
Dim frm As New ClientesDir()
frm.ShowDialog()
End If
End Sub

End Class

En la clase ClientesDir: También sin cambiar.

taDirecs.FillByCliente(dsOfertas.ClientesDirecs,
CShort(Clientes.drCliente.Item("IdCliente")))

Lo voy a hacer pasando por referencia el drCliente; pero por salir de
la duda, quisiera saber si habría otra forma de declarar a Clientes de
manera que no me de el error de referencia nula.

Saludos y gracias

Federico Luna