eğer "report_Load()" olayını kodunu aşağıdaki kodla değiştirirseniz daha düzgün bir görünüm sunuyor
arada kalan boş alanları görünmez yapıp bir alttakini üste çekiyor

Dim x, UstCarpan As Integer

UstCarpan = -1

For x = 1 To 12

    If IsNull(Me.Controls("gdnm" & x)) Then

        Me.Controls("gdnm" & x).Visible = False

        Me.Controls("gdnm" & x & "durum").Visible = False 'gdnm1durum

    Else

        UstCarpan = UstCarpan + 1

        Me.Controls("gdnm" & x).Visible = True

        Me.Controls("gdnm" & x & "durum").Visible = True

        Me.Controls("gdnm" & x & "durum").Top = 6917 + 283 * UstCarpan

        Me.Controls("gdnm" & x).Top = 6917 + 283 * UstCarpan

    End If

Next x



UstCarpan = -1

For x = 1 To 5

    If IsNull(Me.Controls("mv" & x)) Then

        Me.Controls("mv" & x).Visible = False

        Me.Controls("durum" & x).Visible = False   'mv1durum

    Else

        UstCarpan = UstCarpan + 1

        Me.Controls("mv" & x).Visible = True

        Me.Controls("durum" & x).Visible = True

        Me.Controls("mv" & x).Top = 6917 + 283 * UstCarpan

        Me.Controls("durum" & x).Top = 6917 + 283 * UstCarpan

    End If

Next x