Private Sub TextBox2_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox2.Leave
TextBox2.Text = StrConv(TextBox2.Text, VbStrConv.ProperCase)
End Sub

Advertisements