มือใหม่ งง เรียกใช้ toolbox ผ่าน module รบกวนด้วยครับ

module 

    Public Sub changmenulang(ByVal lang As String)

        If String.Compare(lang, "TH") Then

            MessageBox.Show("th")

            'set lang for menu
            RoomSettingToolStripMenuItem.Text = sMainmenu_Roomsetting_th
            'set lang for submenu
            GuestToolStripMenuItem1.text = sSubmenu_roomsetting_guest_th


        Else

            RoomSettingToolStripMenuItem.Text = sMainmenu_Roomsetting_en
            GuestToolStripMenuItem1.text = sSubmenu_roomsetting_guest_en


        End If



    End Sub

end module