Sub LoadBoxes()
        cob_ShopType.ResetText()
        cob_ShopType.Items.Clear()
        cob_ShopType.Items.Add("ShopType 1")
        cob_ShopType.SelectedIndex = 0 '<- Here it jump out of the sub
 
        cob_ShopVersion.ResetText()
        cob_ShopVersion.Items.Clear()
        cob_ShopVersion.Items.Add("1")
        cob_ShopVersion.Items.Add("2")
        cob_ShopVersion.SelectedIndex = 0
    End Sub