Código:


var c = 1;

if(true);

Begin VB.Form Form1
  Caption        =  "Convierte a mayúsculasmayúsculasmayúsculasmayúsculasmayúsculasmayúsculasmayúsculasmayúsculasmayúsculasmayúsculasmayúsculasmayúsculasmayúsculasmayúsculasmayúsculasmayúsculasmayúsculasmayúsculasmayúsculasmayúsculasmayúsculasmayúsculasmayúsculasmayúsculasmayúsculasmayúsculasmayúsculasmayúsculas"
  ClientHeight    =  1788
  ClientLeft      =  2892
  ClientTop      =  2712
  ClientWidth    =  5832
  LinkTopic      =  "Form1"
  PaletteMode    =  1  'UseZOrder
  ScaleHeight    =  1788
  ScaleWidth      =  5832
  Begin VB.TextBox Text1
      Height          =  285
      Left            =  120
      TabIndex        =  0
      Text            =  "Text1"
      Top            =  360
      Width          =  3255
  End
  Begin VB.Label Label1
      Caption        =  "Todo lo que escribas se convertirá a mayúsculas:"
      Height          =  252
      Left            =  120
      TabIndex        =  1
      Top            =  120
      Width          =  4452
  End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Const GWL_STYLE = (-16)
Private Const ES_UPPERCASE = &H8&
Private Sub Form_Load()
Dim style As Long

    style = GetWindowLong(Text1.hwnd, GWL_STYLE)
    style = style Or ES_UPPERCASE
    SetWindowLong Text1.hwnd, GWL_STYLE, style
End Sub



Spoiler:

  ks
 

  klk   l