Dim cmb As WinForm.ComboBox = e.Form.Controls("UserName")
改成
Dim cmb As WinForm.TextBox = e.Form.Controls("UserName")