Pergunta : Mudando o BackColor de uma tecla em um formulário com o código coloc em um módulo

Eu tenho um Form1 em um projeto visual do estúdio 2008 com um Button1 em it.
I gostaria de ajustar o BackColor deste Button1 com o código põr em um submarino em um Module1 em meu Project.
I tenho o seguinte código no
MsgBox de Module1

Public ChangeBackColor () “olá! - deixar-nos ver se a cor de Button1 mudará? o”

Form1.Button1.BackColor = Color.RoyalBlue

End Sub

I põr uma chamada a ChangeBackColor () no evento da carga de Form1
I tinha esperado que quando as cargas Form1 ele chamarão ChangeBackColor e com esta a cor de Button1 no formulário mudará a RoyalBlue.
However que esta não está trabalhando. Eu desejo saber se o que eu esperava acontecer era fantasioso e se há uma maneira de conseguir o que eu quis conseguir - que está mudando o BackColor de uma tecla em Form1 através de um submarino põr em um outro módulo em seu projeto. o
As um teste se a chamada a ChangeBackColor estava trabalhando, eu põr um MsgBox no
Sub ChangeBackColor e o MsgBox aparece quando Form1 carrega acima mas a cor de Button1 não muda. Eu seria grato para a ajuda em conseguir this.

Thank você para sua ajuda na antecipação. nota do
Please eu estou usando Visual Basic no estúdio visual 2008.
class= do

Resposta : Mudando o BackColor de uma tecla em um formulário com o código coloc em um módulo

Sob que circunstâncias o código no módulo será chamado?

Uma aproximação diferente é iterar sobre a propriedade de MdiChildren () de seu formulário principal e encontrar preferivelmente o exemplo de Form1 que maneira:

    ChangeBackColor secundário público ()
        Para cada criança como o formulário em Main.MdiChildren
            Se a criança de TypeOf é Form1 então
                F1 não ofuscante como Form1 = C (criança, Form1)
                f1.Button1.BackColor = Color.RoyalBlue
            Terminar se
        Em seguida
    Submarino da extremidade

Olha como você já tem uma referência a seu exemplo de Form1 através de sua variável “frm1” (provavelmente a nível da classe no cano principal?).  Você poderia passar aquele em ChangeBackColor ():

    ChangeBackColor secundário público (ByVal f1 como Form1)
        f1.Button1.BackColor = Color.RoyalBlue
    Submarino da extremidade

Dentro do cano principal, você faria:

    ChangeBackColor (frm1)