Private Sub RichTextBox1_KeyPress(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.KeyPressEventArgs) Handles RichTextBox1.KeyPress
        If RadioButton1.Checked Then
            e.KeyChar = e.KeyChar.ToString.ToUpper
        End If
End Sub