Mensajes

Este tema ya se trato un par de veces y no hace mucho, busca entre los post de LAS páginas anteriores, de seguro lo encuentras... 

Aparece directamente maximizado, con lo que el evento form_resize no soluciona mucho

Cuando corres un programa este se dimensiona de acuerdo a como lo configuraste previamente, por lo tanto se produce el evento "resize" y es hay donde debes colocar el algoritmo que redimensione los controles dentro de tu aplicación, por ejemplo:

Adaptamos el TextBox a las dimensiones del formulario (como para un editor de texto por ejemplo) esto evento ocurrirá independientemente de lo que hallas indicado en la propiedad "WindowState".

Código (vb) [Seleccionar] Expandir

Private Sub Form_Resize()
    ' Redimensionando...
    With Text1
        .Top = 0
        .Left = 0
        .Width = ScaleWidth
        .Height = ScaleHeight
    End With
End Sub

Independientemente de la resolusión cambiarán los valores de ScaleWidth y ScaleHeight y esos valores son los que les paso la text para redimensionaarlo, lo que dará como resultado que este siempre me quede ajustado.

Tendrás que hacer algunos calculos dependiendo de la cantidad de controles que tengas en el form, las posiciones y dimensiones que les quieras dar a cada uno de los controles...

Coloca la propiedad "Sorted" del control a true, lo haces en tiempo de diseño.

EDITO:
Pon el formulario maximizado atope transparente haber si te deja,y con un timer le das foco (aunque este invisible)
Supongo que te irá así
un saludo

Preferiblemente usa el api SetWindowPos, te evitaras el timer y te irá como deseas...

JAJAJAJA

JAJAJAJA mucho chiste pero nadie dijo nada acerca de "aleatorios"

¿y a que viene eso? 

Y para que salga en un label? xD

Código (vb) [Seleccionar] Expandir

Randomize Timer
Label1.Caption = Int((Rnd * 3) + 1)

Puedes hacer esto

Código (vb) [Seleccionar] Expandir

Option Explicit
Dim sNombreAplicacion As String, sSeccion As String, sDato As String, sClave As String
Dim Contador As Integer

Private Sub CmdGuardarDatos_Click()
    'llamando a la rutina guardar datos... :P
    GuardarDatos (Contador)
End Sub

Private Sub CmdLeerDatos_Click()
    sDato = GetSetting(sNombreAplicacion, sSeccion, sClave)
    If sDato <> "" Then MsgBox "Contador almacenado: " & sDato
End Sub

Private Sub GuardarDatos(Dato As String)
     SaveSetting sNombreAplicacion, sSeccion, sClave, Dato
End Sub

Private Sub Form_Load()
    'En ese sentido
    sNombreAplicacion = App.EXEName
    sSeccion = "Lo que sea"
    sClave = "Contador"
   
    'provisional
    Contador = 6
End Sub

Uhm.. si, tienes todas la razón, pero mira esto:

a q se debe esto???...hay alguna forma de hacer q en un programa de vb6 se vean estos caracteres iguales q en el word???...algun control especial???

Ya ustedes le habian suministrado algunas opciones y pos yo les di otras... así no solo sabe que ciertos controles por defecto no aceptan Unicode, sino que tambien hay otros que por defecto si... 

ya use el richtextbox y nada

A mi si me funciona! 

Prueba agregando el siguiente componente "Microsoft Forms 2.0 object libray" y usa el control textbox que hay te brinda...

Usa el Control RichtextBox...