Вопрос : Изменяющ BackColor кнопки на форме через Кодего помещенное в модуле

Я имею Form1 в визуально проекте студии 2008 с Button1 на it.
I хотел был бы установить BackColor этого Button1 через Кодего положенное в подводную лодку в Module1 в моем Project.
I имею следующий Кодего в
MsgBox Module1

Public Sub ChangeBackColor () «здравствулте! - препятствуйте нам увидеть если цвет Button1 изменит? »

Form1.Button1.BackColor = Color.RoyalBlue

End Sub

I клало звонок к ChangeBackColor () в случай нагрузки Form1
I понадеялось что когда нагрузки Form1 оно вызовут ChangeBackColor и через это цвет Button1 на форме изменит к RoyalBlue.
However, котор это не работает. Я желаю знать ли я ожидал для того чтобы случиться был нереалистичен и если будет дорога достигать, то я хотел достигнуть - изменяет BackColor кнопки на Form1 через подводную лодку положенную в другой модуль в вашем проекте.
As испытание работал ли звонок к ChangeBackColor, я клал MsgBox в
Sub ChangeBackColor и MsgBox показывает вверх когда Form1 нагружает вверх но цвет Button1 не изменяет. Я был бы признательн для помощи в достигать this.

Thank вы для вашей помощи в превидении. примечание
Please я использую Висуал Басич в визуально студии 2008.
class=

Ответ : Изменяющ BackColor кнопки на форме через Кодего помещенное в модуле

Под что обстоятельствами будет вызвано Кодий в модуле?

Один по-разному подход должен вместо повторить над свойством MdiChildren () вашей главным образом формы и найти пример Form1 дорога:

    Общественное Sub ChangeBackColor ()
        Для каждого ребенка как форма в Main.MdiChildren
            Если ребенок TypeOf будет Form1 после этого
                Тусклое f1 как Form1 = CType (ребенок, Form1)
                f1.Button1.BackColor = Color.RoyalBlue
            Закончитесь если
        Затем
    Подводная лодка конца

Она смотрит как вы уже имеет справку к вашему примеру Form1 через вашу перемеююый «frm1» (вероятно на уровне типа в основе?).  Вы smogли пройти то в ChangeBackColor ():

    Общественное Sub ChangeBackColor (ByVal f1 как Form1)
        f1.Button1.BackColor = Color.RoyalBlue
    Подводная лодка конца

Изнутри основы, вы сделали бы:

    ChangeBackColor (frm1)