关于将公共例程移动到app代码类的问题

我有一些共同的代码,我想在页面之间共享,我一直在乱搞应用程序代码类,这很好,但我还想使用影响下拉列表的代码示例:

Sub Set_FirmType(ByVal Sender As Object, ByVal E As EventArgs)

    subcategories.Visible = "false"
    supplycategories.Visible = "false"
    supplytypes.Visible = "false"
    CityData.Visible="True"
    CityDropDown.Visible="False"
    CityDropDown.Items.Clear()

    If DropFirmType.SelectedValue = "funeralhomes||FH" Then
        CountryDropDown.ClearSelection()
        CountryDropDown.Items.FindByValue("United States").Selected = True
        CountryDropDown.Enabled = False
        StateDropDown.Enabled = True
        getStateDropDown("1")
    End If
End Sub

他们是把这个放到我的应用程序代码类中的一种方法吗?

事先谢谢!