Primero haremos la importacion

Imports System.Drawing.Drawing2D

Crearemos una variable Global
Dim ctlMDI As MdiClient

Y en el load del formulario
Dim ctl As Control

'Estamos buscando en control que representa el area cliente MDI

For Each ctl In Me.Controls

Try
ctlMDI = CType(ctl, MdiClient)
' Asignamos el color de fondo
ctlMDI.BackColor = Color.BlueViolet

Catch ex As InvalidCastException
End Try

Next

Regístrate y recibe un email semanal con los últimos trucos informáticos. Pulsa aquí!!

Este truco ha recibido 18 votaciones| Nota media: 8Selecciona tu Puntuación: