Public Class Grating_Fill

    Public Shared Sub Calculate_Grid()
        Dim singleWidth As Integer = Database.database.Tables("Whole Meshes").Rows(0)(User_Input.wholeMeshesColumn)

        Dim singleLength As Integer = 1
    End Sub
End Class