Imprimir Página - Ayuda con resolución de formulario en VB 6.0

muy buen dia amigos , creo este tema para consultar y de paso pedir ayuda para lograr lo siguiente:

resulta que estoy desarrollando un programa para monitorear el estado de una maquina controlada por un plc, utilizando las DDE de RSLINX, bueno el punto es que con ayuda de un compañero logramos hacerlo funcionar en tiempo real, pero a la hora del diseño del formulario este tiene un tamaño pequeño y al maximizarse lo hace únicamente la ventana en si pero no su contenido que incluye varios textbox, labels y una imagen de fondo.
ahora la pregunta es como puedo hacer que este formulario se expanda en pantalla completa sin importar la resolucion del monitor junto con todo su contenido es decir una especie de escalado a pantalla completa?

por su ayuda les agradezco desde ahora
ademas les dejo el codigo con el cual comunicamos es bastante simple y aun con algunos bugs menores pero antes de revisar eso me interesa el poder utilizarlo en una pantalla grande.

Código:

Private Sub Form_Load()


End Sub

Private Sub Image1_Click()

End Sub

Private Sub Timer1_Timer()
'VELOCIDAD
Text1.LinkTopic = "RSLINX|650V19"
Text1.LinkItem = "N7:140,L1,C1"
Text1.LinkMode = 1
Text1 = (Val(Text1) * 600) / 3686
Text1 = Round(Text1, 0)

'CLIPS
Text2.LinkTopic = "RSLINX|650V19"
Text2.LinkItem = "N7:50,L1,C1"
Text2.LinkMode = 1

'

'DECLARAR G4

Text11.LinkTopic = "RSLINX|650V19"
Text11.LinkItem = "N80:27,L1,C1"
Text11.LinkMode = 1

'DECLARAR VARIABLES DE G7
'H4
Text12.LinkTopic = "RSLINX|650V19"
Text12.LinkItem = "N7:20,L1,C1"
Text12.LinkMode = 1

'H6
Text13.LinkTopic = "RSLINX|650V19"
Text13.LinkItem = "N7:22,L1,C1"
Text13.LinkMode = 1

'H5
Text14.LinkTopic = "RSLINX|650V19"
Text14.LinkItem = "N7:21,L1,C1"
Text14.LinkMode = 1

'DECLARAR G7
Text15 = (Val(Text12) * Val(Text13))
Text15 = Val(Text14) / Val(Text15) * 1000

'OPERAR OEE
Text3 = Text15
Text3 = Text2 / Text15
Text3 = Text3 / Text11 * 100
Text3 = Round(Text3, 1)
'DECLARAR TIEMPO TOTAL
Text4.LinkTopic = "RSLINX|650V19"
Text4.LinkItem = "N7:150,L1,C1"
Text4.LinkMode = 1

'DECLARAR TIEMPO PARCIAL
Text5.LinkTopic = "RSLINX|650V19"
Text5.LinkItem = "N7:151,L1,C1"
Text5.LinkMode = 1
Text5 = Val(Text5) / 10

'FORMULA PARA LOG OBJETIVOS
Text7 = Text15 * 720
Text7 = Round(Text7, 0)

If (Text12 = 300) Then
    Text6 = " EXP"
    Text8 = 300
    Else
    End If
    
If (Text12 = 400) Then
    Text6 = "NAT"
    Text8 = 400
    Else
    End If
    
If (Text12 = 450) Then
    Text6 = "KLE"
    Text8 = 325
    Else
    End If
    
If (Text12 = 1000) Then
    Text6 = "SCT"
    Text8 = 636
    Else
    End If
    
If (Text12 = 1001) Then
    Text6 = "REG 1000"
    Text8 = 550
    Else
    End If
    
If (Text12 = 1002) Then
    Text6 = "NATL 1000"
    Text8 = 500
    Else
End If




Timer2.Enabled = True
Timer1.Enabled = False

End Sub

Private Sub Timer2_Timer()
0 Timer1.Enabled = True
Timer2.Enabled = False
End Sub

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: light310oct en 17 Julio 2014, 07:27 am