Private Sub cmbsw_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbsw.LostFocus cmbsw.Text = StrConv(cmbsw.Text, VbStrConv.UpperCase) End Sub
Private Sub ComboBox1_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.Leave End Sub