Erro na Transferencia do Nome do Form para o Modulo

[CPais]

Estava a tentar fazer uma rotina extra num modulo aparte, o qual tinha de alterar o texto que está no botão, só que quando tento fazer, dá erro, diz que o Button1 não é valido para o form ...

Se tentar alterar uma propriedade do form ( por exemplo a cor de fundo ), não dá erro, mas se for um objecto desse form dá erro, será que falta alguma coisa ou não é mesmo possivel...

...... ( Codigo no Botao )

Private Sub btnLimpaCampos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLimpaCampos.Click

Dim MeuNomeForm As Object

MeuNomeForm = Me

AlteraDados(MeuNomeForm)

End Sub

.......( NO MODULO ) ....

Sub AlteraDados(ByVal MeuNomeForm As Object)

MeuNomeForm.Button1.Text = "Novo Nome do Botão"

End Sub

[Xistyle]

Você deve definir sua variável MeuNomeForm como instância do seu form.

Dim MeuNomeForm As New Form1()

AlterarDados(MeuNomeForm)
...


Sub AlterarDados(ByVal MeuNomeForm As Form)
   MeuNomeForm.Button1.Text = "Novo nome do Botão"
End Sub

[CPais]

Obrigado pela resposta. Mas continua a dar erro

Public member 'Button1' on type 'MeuNomeForm' not found.

Você deve definir sua variável MeuNomeForm como instância do seu form.

Dim MeuNomeForm As New Form1()

AlterarDados(MeuNomeForm)
...


Sub AlterarDados(ByVal MeuNomeForm As Form)
   MeuNomeForm.Button1.Text = "Novo nome do Botão"
End Sub

[CPais]

Se for uma propriedade do form não dá erro, só dá erro se for um objecto que esteja no form

MeuNomeForm.BackgroundImage = Image.FromFile("Imagem.jpg") ... ( Altera bem a imagem de fundo )

MeuNomeForm.Button1.BackgroundImage = Image.FromFile("Imagem.jpg") ... ( Dá ERRO )

Obrigado pela resposta. Mas continua a dar erro

Public member 'Button1' on type 'MeuNomeForm' not found.

Você deve definir sua variável MeuNomeForm como instância do seu form.

Dim MeuNomeForm As New Form1()

AlterarDados(MeuNomeForm)
...


Sub AlterarDados(ByVal MeuNomeForm As Form)
   MeuNomeForm.Button1.Text = "Novo nome do Botão"
End Sub

[CPais]

Resolvido:

para alem de passar o nome do form para o modulo, passei tambem o nome do botao e da textbox, e assim já funciona

AlterarDados(MeuNomeForm,MeuNomeBotao,MeuNomeTextbox)

MeuNomeForm.BackgroundImage = Image.FromFile("Imagem.jpg")

MeuNomeBotao.text = "nome do botão"

MeuNomeTextbox.text = "texto da textbox"

Se for uma propriedade do form não dá erro, só dá erro se for um objecto que esteja no form

MeuNomeForm.BackgroundImage = Image.FromFile("Imagem.jpg") ... ( Altera bem a imagem de fundo )

MeuNomeForm.Button1.BackgroundImage = Image.FromFile("Imagem.jpg") ... ( Dá ERRO )

Obrigado pela resposta. Mas continua a dar erro

Public member 'Button1' on type 'MeuNomeForm' not found.

Você deve definir sua variável MeuNomeForm como instância do seu form.

Dim MeuNomeForm As New Form1()

AlterarDados(MeuNomeForm)
...


Sub AlterarDados(ByVal MeuNomeForm As Form)
   MeuNomeForm.Button1.Text = "Novo nome do Botão"
End Sub