todavia no entiendo bien la logica del programa, pero bue ...entonces statuspc(48) deberia ser statuspc(49) si son 50 computadoras y la funcion la  deberias pasar del modulo y ponerla directamente en el formulario.y por favor indentar el codigo fuente.


no deberia reemplazarse el 48 del iif por la "i", sino siempre chequearia el valor de (48) no?

saludos.

jajaja se me paso xd, me ire a dormir ando muy desvelado ya jajaja.

Dulces Lunas!!¡.

Haber prueba con este Ejemplo

Se nesesita Dibujar en un Form

1 CommandButton con nombre =  Command1
1 Label Con Nombre = Label Propiedad index = 0

 
Option Explicit
 
Dim StatusPC() As Boolean
 
Private Sub Command1_Click()
    Dim i As Integer
    For i = 0 To UBound(StatusPC)
        '   // Simulo las entradas de estado
        StatusPC(i) = Round(1 * Rnd())
        '   // Visualiso dichas entradas
        Label(i) = i & " " & IIf(StatusPC(i), "DISPONIBLE", "NO DISPONIBLE")
    Next i
End Sub
 
    '   // Esto solo lo hago por que no deseo estar dibujando _
    y posicionando cada label manualmente
Private Sub Form_Load()
    Dim i As Integer
    Dim SumaIzquierda As Long, TopLabel As long
    Const CantLabel = 80
    Const Filas = 10
    ReDim StatusPC(CantLabel - 1)
 
    BackColor = vbBlack
    With Command1
        .Top = 255
        .Left = 255
        .Caption = "Reiniciar Simulaciòn de Estados"
    End With
    With Label(0)
        .Left = 255
        .Top = Command1.Top + Command1.Height + 250
        .BackColor = vbBlack
        .ForeColor = vbWhite
    End With
    SumaIzquierda = 255
    For i = 1 To CantLabel - 1
        Load Label(i)
        SumaIzquierda = IIf(i Mod Filas = 0, Label(i).Left + Label(i).Width + 255 + SumaIzquierda, SumaIzquierda)
        TopLabel = IIf(i Mod Filas = 0, Label(0).Top, Label(i - 1).Top + Label(i - 1).Height + 25)
        With Label(i)
            .Top = TopLabel
            .Left = SumaIzquierda
            .Caption = ""
            .BackColor = vbBlack
            .ForeColor = vbWhite
            .Visible = True
        End With
    Next i
    Width = SumaIzquierda + Label(i - 1).Width + 255
    Height = Label(Filas - 1).Top + Label(Filas).Height * 4
End Sub
 
 

P.D.: El codigo te generara los demàs Label segun se deseen.

Dulces Lunas!¡.