To get the maximum and minimum bending moment in a beam i wrote a code as follows:
Private Sub CommandButton2_Click() Dim OpenSTAAD As Object Set objOpenSTAAD = GetObject(, "StaadPro.OpenSTAAD") Dim lMemberNo As Long Dim lEnd As Long Dim lLoadcase As…