Private Sub ScrollBar1_Change()
Dim L#, B#, H#
    L = ScrollBar1.Value
    Controls("Label6").Caption = Format(ScrollBar1.Value, "0")
    Controls("Label9").Caption = Format(Cbm(), "#,##0.000")
    Controls("Label10").Caption = Format(QmAfl(), "#,##0.00")
End Sub

Private Sub ScrollBar2_Change()
    Controls("Label7").Caption = Format(ScrollBar2.Value, "0")
    Controls("Label9").Caption = Format(Cbm(), "#,##0.000")
    Controls("Label10").Caption = Format(QmAfl(), "#,##0.00")
End Sub

Private Sub ScrollBar3_Change()
    Controls("Label8").Caption = Format(ScrollBar3.Value, "0")
    Controls("Label9").Caption = Format(Cbm(), "#,##0.000")
    Controls("Label10").Caption = Format(QmAfl(), "#,##0.00")
End Sub

Private Function Cbm()
Dim L#, B#, H#
    L = ScrollBar1.Value
    B = ScrollBar2.Value
    H = ScrollBar3.Value
    Cbm = (L * B * H) / 1000000
End Function

Private Function QmAfl()
Dim L#, B#, H#
    L = ScrollBar1.Value
    B = ScrollBar2.Value
    H = ScrollBar3.Value
    QmAfl = (2 * (L * B + L * H + B * H)) / 10000
End Function

